'Video_019) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_019) start

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

'Video_019) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_019) ende


'Video_020) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_020) start

Sub fuege_eine_notiz_hinzu()

    name_neues_blatt = Application.InputBox("Name Notiz...", Default:="?", Type:=2)
    Sheets("Inhaltsverzeichnis").Select
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = name_neues_blatt
    Range("A1").Select
    Sheets("Inhaltsverzeichnis").Select
    Call schreibe_inhaltsverzeichnis
    Sheets(name_neues_blatt).Select
    
End Sub


Sub springe_zu_inhaltsverzeichnis()   'str_y
    Sheets("Inhaltsverzeichnis").Select
End Sub

'Video_020) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_020) ende