HERBERS Excel-Forum - die Beispiele

Thema: Adressen grau markierter Zellen als Hyperlink eintragen

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