Thema: Adressen grau markierter Zellen als Hyperlink eintragen

Download Beispiel-Arbeitsmappe

Home

Gruppe

Allgemein

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

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

Hyperlink per Code aktivieren, gibt Fehlerhinweis	xlDialogInsertHyperlink.show
Hyperlinks in Excel	Hyperlink auf Excel-Datei funktioniert nicht
Hyperlinks automatisch starten	Hyperlink zu Wordtabelle mit Textmarke
Hyperlink variabel	Hyperlink - UserForm
Hyperlink öffnet Arbeitsmappe mit Parametern	Hyperlinks finden
Hyperlink zurückwandeln?	Hyperlink zurückwandeln?
Hyperlink zurückwandeln?	Hyperlink
Hyperlink als Button	Hyperlink öffnen - URL in Zelle
Hyperlink ... Verkürzung der Verzeichnisauswahl	Hyperlinks - Standardordner ändern
Hyperlink	Hyperlink
Hyperlinks	Hyperlink
Prüfen ob Hyperlink	Allgemeine Frage zur Fehlerbehandlung
Hyperlink und nachträglich Zeilen einfügen	allgemeine Fragen zu einer Datenbank
ComboBox mit Hyperlink	ListBox1_DblClick Hyperlink öffnen
Hyperlink mit Abfrage hinzufügen	Hyperlink als Text
Hyperlink entfernen und Zelle einfärben ?	Dateinamen auslesen - aber nicht Hyperlink
Bilder mit Hyperlink	Excel: Bei Schutz Gruppierung/Hyperlink/Sortierung
Hyperlink auf Bereich in Arbeitsblatt	Hyperlinks per VBA - Dokument defekt?
Hyperlink - Datei wird ausgeblendet	Hyperlink verwirrung
Hyperlink nicht starr (absolut)	Hyperlink
Hyperlinks innerhab einer Mappe (kein Dateipfad)	Hyperlink von Excel zu Word
Hyperlink-Probleme	Hyperlink
per Makro Hyperlink generieren	Hyperlink auf anderes Tabellenblatt mit VBScript
Hyperlink von Zelle auf anderes Tabellenblatt	hyperlink als email mit betreff und cc aus spalte
Hyperlink via WENN-Fkt aktivieren