Wie kann ich prüfen, ob in Zelle "A5" ein Hyperlink vorhanden ist?
MsgBox Range("A5").Hyperlinks(1).TextToDisplay 'gibt den Fehler "Index ausserhalb des gültigen Bereichs"
Danke für Hinweise
Pepi
Sub pepi()
With Range("A5").Hyperlinks
If .Count Then
MsgBox .Item(1).TextToDisplay
End If
End With
End Sub