wie kann ich diesen unteren Fall abfangen, wenn Find nichts findet? Ich wollte dies mit einer If-Bedingung realisieren.
Range("A:A").Find(kriterien).Row
Danke und Gruß
orange
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
Gruß JürgenDim 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
oder so. weil du durch ZählenWenn feststellst, ob der Suchbegriff vorhanden ist
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"
Gruß, Daniel