Find Methode versagt?
Atman
im Moment verstehe ich die Welt nicht mehr.
Eine einfache Find Methode scheint nicht mehr das zu tun was sie soll.
In meinem Fall nutze ich die Find Methode in einer Function.
Diese erhält den Suchbegriff und ein Range Objekt und soll dann den Text der gefundenen Zelle zurückgeben.
Hier der Code:
Function WKLookUp(Suchbegriff As String, Bereich As Range) As String
Dim c As Range
Set c = Bereich.Find(Suchbegriff, , , xlPart)
If c Is Nothing Then
WKLookUp = "#NoFind!#"
Else
WKLookUp = c.Value
End If
End Function
Das funktioniert auch prima im Direktfenster - ABER:
Nutze ich diese Function als Benutzerdefinierte Funktion in einem Tabellenblatt, dann erhalte ich immer das Ergebnis "#NoFind!#".
Obwohl gerade eben im Direktfenster genau das richtige Ergebnis erschien.
Ich habe alle Eingabeparameter mehrfach geprüft und auch die Funktion im Einzelschritt modus getestet. Die Input-Werte stimmen (kann man im Lokalfenster gut sehen)
Jetzt weiß ich nicht mehr weiter - Vielleicht habt Ihr eine Idee...
Gruß Atman