habe nachstehenden Code, der mir bestimmte Tabellenblätter in der Spalte A des Blattes "Maxi"
auflistet. Gleichzeitig wird ein Hyperlink angelegt, der immer auf "A1" verlinkt.
Ich suche eine Lösung bei der statt A1 immer hochgezählt wird und zwar wie folgt:
A3
A27
A51
A75
usw.
also immer um 24 Zeilen erhöht.
For i = Worksheets("Beginn").Index + 1 To Worksheets("Ende").Index - 1
k = k + 1
With Worksheets("Maxi")
.Cells(k + 2, 1) = Worksheets(i).Name
.Hyperlinks.Add anchor:=.Cells(k + 2, 1), Address:="", _
SubAddress:="'" & Worksheets(i).Name & "'!A1"
End With
Next i
Besten Dank!
mfg
Erich