Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub InsertHyperlinks()
   Dim rng As Range
   Dim iWks As Integer, iRow As Integer
   For iWks = Worksheets("Cover").Index To Worksheets.Count
      For Each rng In Worksheets(iWks).UsedRange.Cells
         If rng.Interior.ColorIndex = 15 Then
            iRow = iRow + 1
            ActiveSheet.Hyperlinks.Add _
               anchor:=Cells(iRow, 1), _
               Address:="", _
               SubAddress:=Worksheets(iWks).Name & "!" & rng.Address
         End If
      Next rng
   Next iWks
End Sub

    

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