Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Adressen grau markierter Zellen als Hyperlink eintragen

Gruppe

Hyperlink

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