Find in Funktionen
Reinhard
die nachfolgende S u b tt() klappt.
Aber rufe ich im Blatt über
=Finde(A5)
die entsprechende Funktion auf kommt "#Wert". Der Code steigt bei der Msgbox aus.
Habe ich da einen Zirkelbezug oder warum harmoniert das nicht?
Sub tt()
Dim C As Range
Set C = Range("A:A").Find("a")
MsgBox C.Address
End Sub
Function Finde(Zelle As Range) As String
Dim C As Range
Set C = Range("A:A").Find(Zelle.Value)
MsgBox C.Address
'Finde = C.Address
End Function
GrußReinhard