Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub SetHyperlinks()
   Dim rng As Range
   For Each rng In Selection.Cells
      If Not IsEmpty(rng) Then
         If Dir(rng.Value) <> "" Then
            rng.Hyperlinks.Add _
               anchor:=rng, _
               Address:=rng.Value
         End If
      End If
   Next rng
End Sub

    

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