"Find" findet keine '0'
26.03.2003 11:47:47
franz
ich lasse über eine Funktion (s.u.) einen Bereich nach Zahlen durchsuchen.
Bereich = A10:A20; Inhalt der Zellen: A10=0,A11=100,A12=200 u.s.w.
Mit dem Aufruf x=SucheInBereich(Bereich, 0)
wird als gefundene Addresse A11 und nicht A10 zurückgegeben.
Wenn ich in Zelle A10 'a' hineinschreibe und nach 'a' suchen lasse, wird A10 zurück gegeben?
Weiß jemand Rat?
Gruß Franz
Public Function SucheInBereich(Bereich As Range, Wert As Variant) As Variant
'Set GefZelle = Worksheets(Blatt).Columns(Spalte).Find(Wert)
Set gefzelle = Bereich.Find(Wert)
If gefzelle Is Nothing Then
SucheInBereich = False
Else
SucheInBereich = gefzelle.Address
End If
End Function