Sub Suche()
Dim Kriterien As String
Dim Fundstelle As Long
Kriterien = "test"
On Error Resume Next
Fundstelle = Range("A:A").Find(Kriterien).Row
If Err.Number = 91 Then
MsgBox "Suchbegriff wurde nicht gefunden!"
Else
MsgBox "Suchbegriff wurde in Zeile " & Fundstelle & " gefunden!"
End If
On Error GoTo 0
End Sub
Dim Fundstelle as Range
dim Zeile as long
set Fundstelle = Range("A:A").Find(kriterien)
if not Fundstelle is Nothing then
Zeile = Fundstelle.Row
end if
if Worksheetfunction.Countif(Range("A:A"), Suchkriterium) > 0 then
Zeile = Range("A:A").Find(kriterien).Row
end if
Zeile = 0
on error resume Next
Zeile = Range("A:A").Find(kriterien).Row
0n error goto 0
if Zeile = 0 then msgbox "kriterium wurde nicht gefunden"
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