'Video_027) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_027) start

Sub schreibe_x_neue_seiten_JAHR()
Dim name_der_tabellenblaetter(1 To 10000) As String
Dim soviele_neue_blaetter_ergaenzen As Integer
Dim SPALTE As String
Dim zeilenoffset As Integer

'Eingansparameter start --------------------
zeilenoffset = ActiveWorkbook.Worksheets("uebersicht").Range("C3").Value
zeilenoffset = zeilenoffset - 1
soviele_neue_blaetter_ergaenzen = ActiveWorkbook.Worksheets("uebersicht").Range("A3").Value
SPALTE = ActiveWorkbook.Worksheets("uebersicht").Range("B3").Value
'Eingansparameter ende ---------------------

For i = 1 To soviele_neue_blaetter_ergaenzen
    k = soviele_neue_blaetter_ergaenzen + 1 - i
    k_plus_offset = k + zeilenoffset
    name_der_tabellenblaetter(i) = ActiveWorkbook.Worksheets("uebersicht").Range(SPALTE & k_plus_offset).Value
    Call fuege_neues_blatt_hinzu_JAHR(name_der_tabellenblaetter(i))
Next i
Sheets("uebersicht").Select
Call schreibe_uebersicht__JAHR(SPALTE, zeilenoffset)



    Range("C6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Rows("5:9").Select
    Selection.EntireRow.Hidden = True
    Range("E1").Select



End Sub


Sub fuege_neues_blatt_hinzu_JAHR(name_blatt As String)
    Sheets("uebersicht").Select
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = name_blatt
End Sub


Sub schreibe_uebersicht__JAHR(parameter_spalte As String, parameter_zeilen_offset As Integer)
    Dim zaehler_tabellenblaetter As Integer
    Dim array_speichert_tabellen_blatter(1 To 400) As String
    Dim zeile As Integer
    Dim ZEILEN_OFFSET  As Integer
    '----------------------------------------- ' Parmter setzen
    ARBEITS_SPALTE = parameter_spalte
    ZEILEN_OFFSET = parameter_zeilen_offset - 1
    '-----------------------------------------
    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
        Link_ZU = "'" & array_speichert_tabellen_blatter(i) & "'"
        Range(ARBEITS_SPALTE & zeile).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Link_ZU & "!A1", TextToDisplay:=array_speichert_tabellen_blatter(i)
    Next i
End Sub

'Video_027) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_027) ende