Excel Vba Wert In Spalte Suchen Und Zeile Ausgeben

Stell dir vor, du hast eine gigantische Excel-Tabelle. So gigantisch, dass sie bis nach Timbuktu reicht! Und in dieser Tabelle suchst du nach einer ganz bestimmten Information – sagen wir, nach dem Preis für ein Einhorn-Glitzerstaub-Abo. Viel Spaß beim Scrollen, oder?

Aber keine Panik! Es gibt einen Superhelden in der Excel-Welt, der dir zur Seite springt: VBA! Und mit ein paar Zeilen VBA-Code können wir diesen Glitzerstaub-Preis in Sekundenschnelle finden und dir die Zeilennummer ausspucken, damit du genau weißt, wo in deinem magischen Datenmeer er versteckt ist.

Die magische Formel (fast!)

Vergiss komplizierte Zaubersprüche! Wir brauchen keine Einhörner und keine magische Kristallkugel. Alles, was wir brauchen, ist die Macht von VBA und ein bisschen Logik.

Zuerst öffnen wir den VBA-Editor (drücke Alt + F11 in Excel). Ja, es sieht erstmal aus wie die Kommandozentrale eines Raumschiffs, aber keine Angst, wir machen’s easy.

Dann fügen wir ein neues Modul ein (Einfügen -> Modul). Hier kommt unser Code rein. Denk dran, das ist wie das Rezept für unseren Glitzerstaub-Preis-Finder.

Der Code, der dich zum Helden macht

Okay, tief durchatmen! Hier kommt der Code, den du einfach kopieren und einfügen kannst. Er ist nicht so gefährlich, wie er aussieht. Versprochen!

Sub FindeZeileMitWert()
Dim WertGesucht As Variant
Dim LetzteZeile As Long
Dim i As Long
Dim Gefunden As Boolean

WertGesucht = InputBox("Welchen Wert suchst du in Spalte S?", "Wertsuche")

If WertGesucht = "" Then
MsgBox "Du hast nichts eingegeben!", vbExclamation
Exit Sub
End If

LetzteZeile = Cells(Rows.Count, "S").End(xlUp).Row

Gefunden = False

For i = 1 To LetzteZeile
If Cells(i, "S").Value = WertGesucht Then
MsgBox "Der Wert wurde in Zeile " & i & " gefunden!", vbInformation
Gefunden = True
Exit For
End If
Next i

If Not Gefunden Then
MsgBox "Der Wert wurde leider nicht gefunden. Vielleicht hat das Einhorn ihn versteckt?", vbExclamation
End If

End Sub

Okay, was haben wir hier? Lass uns das mal aufdröseln:

• `Sub FindeZeileMitWert()`: Das ist der Name unseres Makros. Denk dran, das ist wie der Name deines Superhelden.
• `Dim WertGesucht As Variant`: Hier definieren wir eine Variable, in der wir den Wert speichern, den wir suchen wollen. Das ist wie der Zettel, auf dem du notiert hast, was du brauchst.
• `InputBox("Welchen Wert suchst du in Spalte S?", "Wertsuche")`: Diese Zeile öffnet ein kleines Fenster, in dem du eingeben kannst, nach was du suchst. Super praktisch!
• `LetzteZeile = Cells(Rows.Count, "S").End(xlUp).Row`: Diese Zeile findet die letzte Zeile in Spalte S, in der etwas steht. So wissen wir, wie weit wir suchen müssen.
• `For i = 1 To LetzteZeile`: Hier starten wir eine Schleife, die jede Zeile in Spalte S durchgeht. Stell dir vor, du läufst jede Zeile ab und schaust, ob das Gesuchte dabei ist.
• `If Cells(i, "S").Value = WertGesucht Then`: Hier prüfen wir, ob der Wert in der aktuellen Zeile dem entspricht, was wir suchen. Bingo!
• `MsgBox "Der Wert wurde in Zeile " & i & " gefunden!", vbInformation`: Wenn wir den Wert gefunden haben, zeigt uns diese Zeile eine Nachricht mit der Zeilennummer an. Yeah!
• `If Not Gefunden Then...`: Wenn wir die ganze Tabelle durchsucht haben und nichts gefunden haben, bekommen wir eine traurige Nachricht. Aber keine Sorge, vielleicht haben wir uns nur vertippt!

Und jetzt: Action!

Jetzt kommt der spaßige Teil! Geh zurück zu deinem Excel-Sheet und drücke Alt + F8. Ein Fenster mit allen deinen Makros öffnet sich. Wähle "FindeZeileMitWert" und klicke auf "Ausführen".

Ein kleines Fenster poppt auf und fragt dich, welchen Wert du suchst. Gib deinen Suchbegriff ein (z.B. den Preis für das Einhorn-Glitzerstaub-Abo) und klicke auf OK.

Tadaa! Wenn der Wert gefunden wurde, zeigt dir eine Nachricht die Zeilennummer an. Du bist der Held deiner Excel-Tabelle! Wenn nicht, versuch's nochmal mit einem anderen Wert oder überprüfe deine Eingabe.

Mit diesem kleinen VBA-Code hast du ein mächtiges Werkzeug in der Hand, um deine Excel-Tabellen zu durchforsten wie ein Profi. Und wer weiß, vielleicht entdeckst du ja noch ganz andere Schätze in deinen Daten!