Thema: Hyperlinks zu einer Tabellenblattliste erstellen

Download Beispiel-Arbeitsmappe

Home

Gruppe

Allgemein

Problem

In Spalte B sollen Hyperlinks zu den in Spalte A genannten Tabellen erstellt werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub CreateHyperlinks()
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      Cells(iRow, 2).Hyperlinks.Add _
         Anchor:=Cells(iRow, 2), _
         Address:="", _
         SubAddress:=Cells(iRow, 1).Value & "!A1"
      iRow = iRow + 1
   Loop
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