Bsp.
In Zelle B3 schreibe ich =MyFunktion(B3) > Funktion sollte "B3" zurückgeben
oder
In Zelle B3 schreibe ich =MyFunktion(A3) > Funktion sollte "Peter" zurückgeben, wenn der Zellinhalt von A3 "Peter" ist.
Vielen Dank um Eure Hilfe
Function MyAddress(Zelle As Range)
MyAddress = Zelle.Address
End Function
Function MyName(Zelle As Range)
For Each n In ActiveWorkbook.Names
If Range(Replace(n.RefersTo, "=", "")).Address = Zelle.Address Then
MyName = n.Name
End If
Next
End Function
Gruß, NoNet