Gruppe
Link
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?
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