Find Funktion findet nichts
19.11.2002 11:17:36
Robert
ich habe eine benutzerdefinierte Formel programmiert, die die Adresse der gefundenen Zelle Ausgibt. Die Find Funktion gibt immer nur Nothing zurück, obwohl sich der Suchbegriff im Suchbereich befindet.
Die Formel lautet: =SuchenStr(AB3;W2:AW7)
der 1. Ausdruck ist der Suchstring, der 2. der Suchbereich
Jetzt der VBA Code:
Function SuchenStr(SuchString As String, Bereich As Range) As String
Dim zelle As Range
With Bereich
Set zelle = .Find(SuchString)
If zelle Is Nothing Then SuchenStr = "Fehler": Exit Function
SuchenStr = zelle.Address
End With
End Function
Danke schon mal im vorraus
Robert