Excel VBA schnelles Suchen in einem Bereich
Dim Bereich As Range
With Worksheets("Kunden").Range("a2:a1000")
Set c = .Find("Hallo", LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox c.Row
Else
MsgBox "Nicht gefunden"
End If
End With