Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Hyperlinks zu einer Tabellenblattliste erstellen

Gruppe

Hyperlink

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