Internetadressen, die als Text vorliegen in Hyperlinks umwandeln (VBA)

Mit dem folgenden Makro können Sie Internetadressen, die als Text vorliegen automatisch in Hyperlinks umwandeln. Markieren Sie einfach den entsprechenden Zellbereich, indem die Hyperlinks als Text vorliegen und starten Sie dann das folgende Makro.

Sub TextZuHyperlink()

Dim h As Range

For Each h In Selection

hyp = h.Value

If hyp <> “” Then

If Left(hyp, 7) = “http://&#8221; Then

ActiveSheet.Hyperlinks.Add Anchor:=h, Address:=hyp

Else

ActiveSheet.Hyperlinks.Add Anchor:=h, Address:=”http://&#8221; & hyp

End If

End If

Next h

End Sub

Weiterführende Links:

 

Kennen Sie weiterführende Links zu diesem Thema? Schreiben Sie doch Ihre Linkempfehlung als Kommentar unten zu dieser Seite. Ich freue mich auf Ihr Feedback.

 

MerkenMerken