Gruppe
Allgemein
Problem
In Spalte B sollen Hyperlinks zu den in Spalte A genannten Tabellen erstellt werden.
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