Sub Oliver()
Dim var As Variant
Dim SuBe As String
Dim check As Boolean
SuBe = "Suchbegriff"
var = Application.Match(SuBe, Range("A:A"), 0)
If Not IsError(var) Then
check = True
End If
MsgBox check
End Sub
Um einen bestimmten Eintrag in einer Spalte per VBA zu suchen, kannst du die folgenden Schritte befolgen:
Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke im Projektfenster mit der rechten Maustaste auf "VBAProject (DeineArbeitsmappe)" und wähle Einfügen > Modul.
Schreibe den VBA-Code: Füge den folgenden Code in das Modul ein:
Sub SucheInSpalte()
Dim var As Variant
Dim Suchbegriff As String
Dim check As Boolean
Suchbegriff = "DeinWert" ' Hier den zu suchenden Wert eintragen
var = Application.Match(Suchbegriff, Range("A:A"), 0)
If Not IsError(var) Then
check = True
Else
check = False
End If
MsgBox check ' Gibt true oder false zurück
End SubTeste den Code: Schließe den VBA-Editor und führe das Makro aus, um zu sehen, ob der Wert in der Spalte gefunden wurde.
Fehler: "Typ nicht übereinstimmend"
Fehler: "Kein Ergebnis gefunden"
Wenn du eine andere Methode verwenden möchtest, um in einer Spalte zu suchen, kannst du die Find-Methode nutzen. Hier ein Beispiel:
Sub FindenInSpalte()
Dim c As Range
Dim Suchbegriff As String
Suchbegriff = "DeinWert" ' Hier den zu suchenden Wert eintragen
With Worksheets(1).Range("A:A")
Set c = .Find(Suchbegriff, lookin:=xlValues)
If Not c Is Nothing Then
MsgBox "Wert gefunden in Zelle: " & c.Address
Else
MsgBox "Wert nicht gefunden."
End If
End With
End SubDiese Methode kann dir helfen, den genauen Speicherort des gesuchten Wertes zu finden.
Wert in Spalte A suchen: Wenn du nach dem Wert "Test" in der Spalte A suchst, kannst du den Suchbegriff einfach im Code ändern:
Suchbegriff = "Test"Suche nach Zahlen: Um nach einer Zahl, z.B. 1000, zu suchen, ändere den Suchbegriff entsprechend:
Suchbegriff = 1000Option Explicit: Füge dies am Anfang deines Moduls hinzu, um sicherzustellen, dass alle Variablen deklariert werden.On Error Resume NextApplication.ScreenUpdating = False1. Wie kann ich mehrere Werte in einer Spalte suchen?
Du kannst eine Schleife verwenden, um durch ein Array von Suchbegriffen zu iterieren und jeden Wert zu überprüfen.
2. Gibt es eine Möglichkeit, die Suchergebnisse zu zählen?
Ja, du kannst einen Zähler verwenden, um die Anzahl der gefundenen Werte zu zählen, während du die Spalte durchsucht.
3. Kann ich die Suche auf mehrere Spalten ausweiten?
Ja, du kannst die Range in deinem VBA-Code entsprechend anpassen, um mehrere Spalten zu durchsuchen.