Sub suchen() Dim suchtext As String Dim Ergebnis As Range 'Suchtext eingeben suchtext = "Test" With ActiveSheet.Range("A1:A10") Set Ergebnis = .Find(suchtext, LookIn:=xlValues, lookat:=xlPart) End With If Ergebnis Is Nothing Then MsgBox "Leider nichts gefunden", 0, "Suche abgeschlossen" Else Ergebnis.Activate End If End Sub
58.4k Fragen
249k Antworten
7k Nutzer