habe ein kleines Problem. Ich moechte einen Wert z.B "hallo" in der kompletten Spalte(A)finden. Wenn er gefunden wurde soll in einer msgbox "wert gefunden" sonst "nicht gefunden" erscheinen.
Waere fuer Hilfe sehr dankbar
Sub Finde()
Dim z
Set z = Range("A:A").Find(what:="Hallo", lookat:=xlWhole)
If z Is Nothing Then
MsgBox "nicht gefunden"
Else
MsgBox "gefunden in " & z.Address
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen