Was muss ich bei der 2. Funktion (vgl. unten) anstelle der ? schreiben , damit die Übergabe als Range (anstelle als Bereich) funktioniert?
Gruss, Peter
Public Function sErsteZelle(Bereich As String)
sErsteZelle = Range(Bereich)(1).Address(0, 0)
End Function
Public Function sxErsteZelle(rng As Range) As String
With rng
sxErsteZelle = ?
End With
End Function