wie kann ich den Inhalt der "Adresse" aus dem Hyperlink auslesen?
Function LinkToText(ByRef Zelle As Range) As String
Application.Volatile
On Error GoTo ErrExit
LinkToText = Zelle.Hyperlinks(1).Address
Exit Function
ErrExit:
LinkToText = "#NoLink"
End Function
gruß selli