function Probleme mit find-Methode
16.11.2008 17:16:39
Jens
ich habe ein Problem mit einer Funktion, die nach Text in Zellen mit der find-Methode sucht und dann die Zelleadresse zurück geben soll.
Ich habe den code schon in einem Sub und da funktioniert das Ganze auch.
'es wird nach dem Text in C1 gesucht und die Adresse in A1 ausgegeben.
Sub address()
Dim rng As Range
Set rng = Cells.Find(What:=[C1], After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
[A1] = rng.address
End Sub
'als Function wird immer #wert zurückgegeben!? Warum?
Function addi(such As Variant) As Variant
Dim rng As Range
Set rng = Cells.Find(What:=such, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
addi = rng.address
End Function
Vielleicht kann mir jemand mit mehr vba-Erfahrung weiterhelfen? Ich verstehe nicht warum die Adresse nicht korrekt zurückgeben wird. Diverse andere Datentypen habe ich schon probiert.
Danke