Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Link und Hyperlink