Gruppe
Allgemein
Bereich
Hyperlink
Thema
Adressen grau markierter Zellen als Hyperlink eintragen
Problem
In Spalte A sollen die Adressen der in den Folgeblättern grau markierten Zellen als Hyperlinks eingetragen werden.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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