Sub schreibe_inhaltsverzeichnis()
    Dim zaehler_tabellenblaetter As Integer
    Dim array_speichert_tabellen_blatter(1 To 300) As String
    Dim zeile As Integer
    Dim ZEILEN_OFFSET  As Integer
    '----------------------------------------- ' Parmter setzen
    ARBEITS_SPALTE = "B"
    ZEILEN_OFFSET = 4
    '-----------------------------------------
    Columns(ARBEITS_SPALTE & ":" & ARBEITS_SPALTE).Select
    Selection.ClearContents
    zaehler_tabellenblaetter = 1
    Dim WsTabelle As Worksheet
      For Each WsTabelle In Sheets
             With WsTabelle
               array_speichert_tabellen_blatter(zaehler_tabellenblaetter) = WsTabelle.Name
             End With
             zaehler_tabellenblaetter = zaehler_tabellenblaetter + 1
      Next WsTabelle

    For i = 1 To (zaehler_tabellenblaetter - 1) Step 1
        zeile = i + ZEILEN_OFFSET
        Range(ARBEITS_SPALTE & zeile).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        array_speichert_tabellen_blatter(i) & "!A1", TextToDisplay:=array_speichert_tabellen_blatter(i)
    Next i
End Sub