AW: oder so:
03.10.2009 14:21:48
Daniel
Hi
das geht so, weil bei Zuweisung der Fundstelle in eine Range-Variable kein Fehler entsteht, sondern die Variable leer bleibt
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
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
oder einfach so mit einer Fehlerunterdrückung:
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