wie kann ich die Hyperlink-Adressen der markierten Zellen in einem MsgBox anzeigen?
Vielen Dank im Voraus.
Liebe Grüße
Selma
Sub HL()
Dim lrZelle As Range
For Each lrZelle In Selection
If lrZelle.Hyperlinks.Count > 0 Then
If lrZelle.Hyperlinks(1).Address "" Then
MsgBox lrZelle.Address & " " & lrZelle.Hyperlinks(1).Address
Else
MsgBox lrZelle.Address & " " & lrZelle.Hyperlinks(1).SubAddress
End If
End If
Next
End Sub
Hilft das?
Ciao
Thorsten