Gruppe
Allgemein
Bereich
Hyperlink
Thema
Hyperlinks zu einer Tabellenblattliste erstellen
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