Sub Inhaltsverzeichnis_einfügen()
'Inhaltsverzeichnis aller Tabellenblätter
'im allen Tabellenblättern ab Zeile A1 einfügen
Dim iCnt As Integer
Dim blatt As Object
Dim zeile As Double
For iCnt = 1 To Worksheets.Count
zeile = 1
For Each blatt In Sheets
Worksheets(iCnt).Cells(zeile, 1).Hyperlinks.Add Anchor:=Worksheets(iCnt).Cells(zeile, 1), Address:="", SubAddress:= _
blatt.Name & "!A1", TextToDisplay:=blatt.Name
zeile = zeile + 1
Next blatt
Next iCnt
End Sub
Sub Inhaltsverzeichnis_einfügen()
'Inhaltsverzeichnis aller Tabellenblätter im ersten Tabellenblat
Dim iCnt As Integer
Dim blatt As Object
Dim zeile As Double
zeile = 1
With Worksheets(1)
For iCnt = 2 To Worksheets.Count
.Cells(zeile, 1).Hyperlinks.Add Anchor:=.Cells(zeile, 1), Address:="", SubAddress:= _
Worksheets(iCnt).Name & "!A1", TextToDisplay:=Worksheets(iCnt).Name
zeile = zeile + 1
Next iCnt
End With
End Sub