Makro zur Aktivierung von Hyperlinks
Hyperlinks
ich habe eine Tabelle mit rund 3000 Zeilen, die ich aus einer anderen Anwendung übernommen habe.
Nach der Übernahme waren aber die enthaltenen Webadressen nicht als Hyperlinks aktiv, was ich mit
Public Sub hyp()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Hyperlinks.Add Zelle, Zelle.Value
Next
End Subgeändert habe.
Mein Makro hat aber die unerwünschte Nebenwirkung, dass auch leere Zellen "aktiviert" werden und nun den Speicherort der Datei als Hyperlink enthalten.
Wie muss das Makro lauten, damit das nicht passiert?
Thx 4 hlp
Michael
Anzeige