Gruppe
Link
Bereich
Hyperlink
Thema
URL's eines ausgewählten Bereiches in HyperLinks umwandeln
Problem
In einer Tabelle stehen in verschiedenen Zellen Internetadressen. Wie kann ich diese Zellen in Hyperlinks umwandeln, ohne die Adressen im HyperLink-Dialog neu eintippen zu müssen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub SetHyperlinks_Click()
Dim rng As Range
For Each rng In Range("A1").CurrentRegion.Cells
If Left(rng.Value, 7) = "http://" Then
rng.Hyperlinks.Add rng, rng.Value
End If
Next rng
End Sub