Dim gl_erste_zeile_der_tabelle As Integer
Dim gl_letzte_zeile_der_tabelle As Integer
Dim gl_zeile_in_der_das_suchwort_steht As Integer
Dim globale_zeile As Integer
Dim global_solve_button_gesperrt As Integer
Dim global_neue_karteikarten_erstellen As Integer
Dim global_antwort_knopf_gedrueckt As Integer
'--------------------------------- Datenbank anlegen /START
Sub viele_ordner_anlegen()
    Dim ordner_name(1 To 1001) As String
    verzeichnis = ActiveWorkbook.Worksheets("datenbank_anlegen").Range("C3").Value
    anzahl_neue_ordner = ActiveWorkbook.Worksheets("datenbank_anlegen").Range("C6").Value
    For i = 1 To anzahl_neue_ordner
            w = i + 7
            f = i + 4
            If i < 10 Then
            m = "wis_" & "000" & i
            ElseIf i < 100 Then
            m = "wis_" & "00" & i
            ElseIf i < 1000 Then
            m = "wis_" & "0" & i
            ElseIf i >= 1000 Then
            m = "wis_" & i
            End If
            ActiveWorkbook.Worksheets("datenbank_anlegen").Range("C" & w).Value = m
            ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("E" & f).Value = m
    Next i
    For i = 1 To anzahl_neue_ordner
            w = i + 7
            ordner_name(i) = ActiveWorkbook.Worksheets("datenbank_anlegen").Range("C" & w).Value
            Call ordner_anlegen(ordner_name(i))
    Next i
    Sheets("KARTEIKARTEN").Select
    Call Links_zu_Ordnern_erzeugen
    Sheets("datenbank_anlegen").Select
End Sub
Sub ordner_anlegen(ordner_name As String)
    verzeichnis = ActiveWorkbook.Worksheets("datenbank_anlegen").Range("C3").Value
    gesamtter_pfad = verzeichnis & "\" & ordner_name
    MkDir gesamtter_pfad
End Sub
'--------------------------------- Datenbank anlegen /ENDE
Sub schreibe_neue_seiten()
Dim name_der_tabellenblaetter(1 To 1001) As Integer
Dim soviele_neue_blaetter_ergaenzen As Integer
soviele_neue_blaetter_ergaenzen = ActiveWorkbook.Worksheets("Inhaltsverzeichnis").Range("A2").Value
For i = 1 To soviele_neue_blaetter_ergaenzen
    h = i + 4
    k = soviele_neue_blaetter_ergaenzen + 1 - i
    name_der_tabellenblaetter(i) = k
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("C" & h).Value = "blatt_" & i
    Call fuege_neues_blatt_hinzu(CStr(name_der_tabellenblaetter(i)))
Next i
Sheets("KARTEIKARTEN").Select
For i = 1 To soviele_neue_blaetter_ergaenzen
    k = i + 4
    Range("C" & k).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & CStr(i) & "'" & "!A1", TextToDisplay:="blatt_" & CStr(i)
Next i
Sheets("Inhaltsverzeichnis").Select
Call schreibe_inhaltsverzeichnis
Call schreibe_format
Sheets("Inhaltsverzeichnis").Select
End Sub
Sub fuege_neues_blatt_hinzu(name_blatt As String)
    Sheets("Inhaltsverzeichnis").Select
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = name_blatt
End Sub
Sub schreibe_inhaltsverzeichnis()
    Dim zaehler_tabellenblaetter As Integer
    Dim array_speichert_tabellen_blatter(1 To 1050) 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
Sub schreibe_format()
soviele_neue_blaetter_ergaenzen = ActiveWorkbook.Worksheets("Inhaltsverzeichnis").Range("A2").Value
Dim read_val As String
tabellen_blatter_ohne_index = 5                                                 '' 300
For i = 1 To soviele_neue_blaetter_ergaenzen   '570
w = i + (4 + tabellen_blatter_ohne_index)
read_val = ActiveWorkbook.Worksheets("Inhaltsverzeichnis").Range("B" & w).Value
Call setze_format(read_val)
Next i
Call links
End Sub
Sub setze_format(read_val_ As String)
    Sheets("format_").Select
    Cells.Select
    Selection.Copy
    Sheets(read_val_).Select
    Cells.Select
    ActiveSheet.Paste
End Sub
Sub links()
Dim i As Integer
soviele_neue_blaetter_ergaenzen = ActiveWorkbook.Worksheets("Inhaltsverzeichnis").Range("A2").Value
For i = 1 To soviele_neue_blaetter_ergaenzen
    k = i + 4
    Sheets(CStr(i)).Select
    Range("C1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'WISSEN_DATENBANK'!A" & k, TextToDisplay:="jump_back"
    Rows("1:1").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
Next i
End Sub
Sub time_()
aktuelle_zeile = ActiveCell.Row
ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("B" & aktuelle_zeile).Value = Format(Now, "YYYY" & "_" & "MM" & "_" & "DD" & "  " & "hh" & ":" & "mm" & ":" & "ss")
Call filter_nach_zeit
End Sub


Sub show__()
    Rows("1:1050").Select
    Range("A1012").Activate
    Selection.EntireRow.Hidden = False
    Range("H15").Select
End Sub
Sub FILTER_FUER_SPALTE_H()
    Call init_filter__
    Call FILTER__("H", "KARTEIKARTEN")
End Sub
Sub FILTER_FUER_SPALTE_I()
    Call init_filter__
    Call FILTER__("I", "KARTEIKARTEN")
End Sub
Sub FILTER_FUER_SPALTE_J()
    Call init_filter__
    Call FILTER__("J", "KARTEIKARTEN")
End Sub
Sub FILTER_FUER_SPALTE_K()
    Call init_filter__
    Call FILTER__("K", "KARTEIKARTEN")
End Sub
Sub FILTER_FUER_SPALTE_G()
    Call init_filter__
    Call FILTER__("G", "KARTEIKARTEN")
End Sub
Sub FILTER_FUER_SPALTE_E()
    Call init_filter__
    Call FILTER__("E", "KARTEIKARTEN")
End Sub
Sub FILTER_FUER_SPALTE_C()
    Call init_filter__
    Call FILTER__("C", "KARTEIKARTEN")
End Sub
Sub init_filter__()
    gl_erste_zeile_der_tabelle = 15
    gl_letzte_zeile_der_tabelle = 1050
    Sheets("KARTEIKARTEN").Select
    Rows(gl_erste_zeile_der_tabelle & ":" & gl_letzte_zeile_der_tabelle).Select
    Selection.EntireRow.Hidden = True
    gl_zeile_in_der_das_suchwort_steht = 1
End Sub
Sub FILTER__(spalten_buchstabe As String, name_des_blattes As String)
Dim aktueller_name_des_tabellenblattes As String
aktueller_name_des_tabellenblattes = ActiveSheet.Name
Dim pruefe_diesen_zellwert As String
Dim suche_nach_diesem_string As String
suche_nach_diesem_string = ActiveWorkbook.Worksheets(name_des_blattes).Range(spalten_buchstabe & gl_zeile_in_der_das_suchwort_steht).Value
For k = gl_erste_zeile_der_tabelle To gl_letzte_zeile_der_tabelle Step 1
  pruefe_diesen_zellwert = ActiveWorkbook.Worksheets(name_des_blattes).Range(spalten_buchstabe & k).Value
  rueckgabewert = InStrRev(pruefe_diesen_zellwert, suche_nach_diesem_string, , vbTextCompare)
  If (rueckgabewert > 0) Then
    Rows(k & ":" & k).Select
    Selection.EntireRow.Hidden = False ' wenn was gefunden wurde wieder einblenden
  End If
Next k
Range("A1").Select
End Sub
Sub filter_nach_zeit()
    ActiveWorkbook.Worksheets("KARTEIKARTEN").ListObjects("Tabelle1").Sort.SortFields _
        .Clear
    ActiveWorkbook.Worksheets("KARTEIKARTEN").ListObjects("Tabelle1").Sort.SortFields _
        .Add2 Key:=Range("Tabelle1[[#All],[LAST UPDATE]]"), SortOn:=xlSortOnValues _
        , Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("KARTEIKARTEN").ListObjects("Tabelle1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub new_element()
flag = 1
erste_zeile_der_liste = 5
Offset = erste_zeile_der_liste - 1
For i = 1 To 1100
zeile = i + Offset
iterations_wert_wert_der_liste = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("B" & zeile).Value
If iterations_wert_wert_der_liste = "" And flag = 1 Then
    flag = 0
    merke_dir_die_erste_freie_zeile = zeile
End If
Next i
ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("B" & merke_dir_die_erste_freie_zeile).Value = Format(Now, "YYYY" & "_" & "MM" & "_" & "DD" & "  " & "hh" & ":" & "mm" & ":" & "ss")
Call filter_nach_zeit
Range("H5").Select
End Sub
Sub unfilter_time()
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("KARTEIKARTEN").ListObjects("Tabelle1").Sort.SortFields _
        .Clear
    ActiveWorkbook.Worksheets("KARTEIKARTEN").ListObjects("Tabelle1").Sort.SortFields _
        .Add2 Key:=Range("Tabelle1[[#All],[Datenbank]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("KARTEIKARTEN").ListObjects("Tabelle1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub Links_zu_Ordnern_erzeugen()
Dim i As Integer
Dim w As Integer

    Sheets("KARTEIKARTEN").Select

anzahl_neue_ordner = ActiveWorkbook.Worksheets("datenbank_anlegen").Range("C6").Value
verzeichnis = ActiveWorkbook.Worksheets("datenbank_anlegen").Range("C3").Value
For i = 1 To anzahl_neue_ordner
w = i + 4
name_des_ordners = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("E" & w).Value
verzeichnis_neu = verzeichnis & "\" & name_des_ordners
'MsgBox verzeichnis_neu
Range("E" & CStr(w)).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        verzeichnis_neu, TextToDisplay:=name_des_ordners
Next i
Range("A1").Select
End Sub



Sub schreibe_zahl()


    For i = 1 To 999
            w = i + 14
            f = i + 14
            If i < 10 Then
            m = "karte_" & "000" & i
            ElseIf i < 100 Then
            m = "karte_" & "00" & i
            ElseIf i < 1000 Then
            m = "karte_" & "0" & i
            ElseIf i >= 1000 Then
            m = "karte_" & i
            End If
            'ActiveWorkbook.Worksheets("datenbank_anlegen").Range("C" & w).Value = m
            ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("C" & f).Value = m   ' kartennnummern
    Next i
End Sub


Sub a01_lern_session_starten()
Dim naechster_schritt As Integer
Dim naechste_karte As String
Dim zahler As Integer
Dim kartennummer_s As String
Dim treffer As Integer
zahler = 0
global_solve_button_gesperrt = 0
global_neue_karteikarten_erstellen = 0

MsgBox "Bitte schau nochmal nach, ob du die richtige Kategorie und den richtigen Lern-Modus in Zelle G3 & G4 gewählt hast!"


Call a03_reset
Call schwartz

    Columns("I:I").Select
    Selection.EntireColumn.Hidden = True
    
        Columns("J:J").Select
    Selection.EntireColumn.Hidden = True

'erst mal alle Karten der aktuellen Kategorie zählen
ofs = 14
treffer = ofs
aktuelle_kategorie = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("C3").Value
'MsgBox aktuelle_kategorie
Call blatt_kartennumer 'delete

Sheets("KARTEIKARTEN").Select
modus__ = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("C4").Value
'MsgBox modus__
If modus__ = "Alle Karten lernen" Then
Call deleteG
Else
'don't delete
End If

For i = 1 To 1000
zeile = i + ofs
pruefwert = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("J" & zeile).Value
'ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G" & zeile).Value = ""
kartennummer_s = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("C" & zeile).Value
kartennummer_i = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("O" & zeile).Value
gewusst_status = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G" & zeile).Value

If modus__ = "Alle Karten lernen" Then
    If pruefwert = aktuelle_kategorie Then
        treffer = treffer + 1
        ActiveWorkbook.Worksheets("kartennnummern").Range("B" & treffer).Value = kartennummer_s
        ActiveWorkbook.Worksheets("kartennnummern").Range("C" & treffer).Value = kartennummer_i
        zahler = zahler + 1
    End If
Else
    If pruefwert = aktuelle_kategorie And gewusst_status = "nicht gewusst" Then
        treffer = treffer + 1
        ActiveWorkbook.Worksheets("kartennnummern").Range("B" & treffer).Value = kartennummer_s
        ActiveWorkbook.Worksheets("kartennnummern").Range("C" & treffer).Value = kartennummer_i
        zahler = zahler + 1
    End If
End If


Next i
ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G10").Value = zahler

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("I6").Value = "LERN-MODUS"
naechster_schritt = ActiveWorkbook.Worksheets("kartennnummern").Range("A2").Value
Offset = 14
naechste_karte = ActiveWorkbook.Worksheets("kartennnummern").Range("B" & (naechster_schritt + Offset)).Value

If naechste_karte = "" Then
 MsgBox "für deine Kategorie oder deinen Modus gibt es keine Karten zum Lernen"
Else



ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("C1").Value = naechste_karte
naechster_schritt = naechster_schritt + 1
ActiveWorkbook.Worksheets("kartennnummern").Range("A2").Value = naechster_schritt
ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G8").Value = 1
End If

End Sub




Sub str__y()

If global_neue_karteikarten_erstellen = 1 Then
 name_blatt = ActiveSheet.Name
 Sheets("KARTEIKARTEN").Select
 name_blatt = name_blatt + 14
 Range("A" & name_blatt).Select
 Rows(name_blatt & ":" & name_blatt).Select
Else
Sheets("KARTEIKARTEN").Select
Range("A15").Select
anz_geprueft = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G9").Value
nicht_gewusst = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G12").Value
gewusst = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G11").Value
'antwort = Application.InputBox("Hast du die Antwort gewusst?  [ja = 1  nein = 2]", Default:=1, Type:=1)  'wertz
antwort = 1
If antwort = 1 Then
    zeile = anz_geprueft + 14 + 1
    nummer = ActiveWorkbook.Worksheets("kartennnummern").Range("C" & (zeile)).Value
    nummer2 = nummer + 14
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G" & (nummer2)).Value = "gewusst"
    neu_ = gewusst + 1
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G11").Value = neu_
ElseIf antwort = 2 Then
    zeile = anz_geprueft + 14 + 1
    nummer = ActiveWorkbook.Worksheets("kartennnummern").Range("C" & (zeile)).Value
    nummer2 = nummer + 14
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G" & (nummer2)).Value = "nicht gewusst"
    neu_ = nicht_gewusst + 1
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G12").Value = neu_
Else

End If
End If



End Sub

Sub str__n()
Sheets("KARTEIKARTEN").Select
Range("A15").Select
anz_geprueft = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G9").Value
nicht_gewusst = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G12").Value
gewusst = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G11").Value
'antwort = Application.InputBox("Hast du die Antwort gewusst?  [ja = 1  nein = 2]", Default:=1, Type:=1)  'wertz
antwort = 2
If antwort = 1 Then
    zeile = anz_geprueft + 14 + 1
    nummer = ActiveWorkbook.Worksheets("kartennnummern").Range("C" & (zeile)).Value
    nummer2 = nummer + 14
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G" & (nummer2)).Value = "gewusst"
    neu_ = gewusst + 1
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G11").Value = neu_
ElseIf antwort = 2 Then
    zeile = anz_geprueft + 14 + 1
    nummer = ActiveWorkbook.Worksheets("kartennnummern").Range("C" & (zeile)).Value
    nummer2 = nummer + 14
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G" & (nummer2)).Value = "nicht gewusst"
    neu_ = nicht_gewusst + 1
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G12").Value = neu_
Else

End If
End Sub

Sub solve_button_str__y()

global_antwort_knopf_gedrueckt = 1


If global_solve_button_gesperrt = 0 Then




bilder_modus = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("B1").Value




Sheets("KARTEIKARTEN").Select
Range("A15").Select
Dim richtige_antwort As String
Dim antwort2 As String
Dim nummer As Integer

anz_geprueft = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G9").Value
nicht_gewusst = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G12").Value
gewusst = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G11").Value

'hier den modus prüfen --------------------------------------------
zeile = anz_geprueft + 14 + 1
'MsgBox "zeile"
'MsgBox zeile
nummer = ActiveWorkbook.Worksheets("kartennnummern").Range("C" & (zeile)).Value
steht_hier_was_drin = ActiveWorkbook.Worksheets(CStr(nummer)).Range("B2").Value
If steht_hier_was_drin = "" Then
    bilder_modus = "picture_mode"
Else
    bilder_modus = "text_mode"
End If
' hier den modus prüfen ---------------------------------------------



If bilder_modus = "picture_mode" Then
    'MsgBox "den solve button nur im text-modus verwenden (Zelle B2)"
zeile = anz_geprueft + 14 + 1
'MsgBox "zeile"
'MsgBox zeile
nummer = ActiveWorkbook.Worksheets("kartennnummern").Range("C" & (zeile)).Value
Sheets(CStr(nummer)).Select
Else
antwort2 = Application.InputBox("Was ist die richtige Antwort?")  'wertz
zeile = anz_geprueft + 14 + 1
'MsgBox "zeile"
'MsgBox zeile
nummer = ActiveWorkbook.Worksheets("kartennnummern").Range("C" & (zeile)).Value
'MsgBox "nummer"
'MsgBox nummer
richtige_antwort = ActiveWorkbook.Worksheets(CStr(nummer)).Range("B2").Value
'MsgBox "richtige_antwort"
'MsgBox richtige_antwort
If antwort2 = richtige_antwort Then
    antwort = 1
Else
    antwort = 2
End If


'antwort = Application.InputBox("Hast du die Antwort gewusst?  [ja = 1  nein = 2]", Default:=1, Type:=1)  'wertz

If antwort = 1 Then
    zeile = anz_geprueft + 14 + 1
    nummer = ActiveWorkbook.Worksheets("kartennnummern").Range("C" & (zeile)).Value
    nummer2 = nummer + 14
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G" & (nummer2)).Value = "gewusst"
    neu_ = gewusst + 1
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G11").Value = neu_
    
    MsgBox "SUPER !!!"
ElseIf antwort = 2 Then
    zeile = anz_geprueft + 14 + 1
    nummer = ActiveWorkbook.Worksheets("kartennnummern").Range("C" & (zeile)).Value
    nummer2 = nummer + 14
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G" & (nummer2)).Value = "nicht gewusst"
    neu_ = nicht_gewusst + 1
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G12").Value = neu_
    
    MsgBox "Leider falsch! Richtgi wäre: " & steht_hier_was_drin
Else

End If

End If


global_solve_button_gesperrt = 1

Else
MsgBox "Achtung: Du hast die Frage bereits beantwortet!  Drücke bitte auf Button <Nächste Karte>"

End If

End Sub

Sub gg()
global_solve_button_gesperrt = 0
End Sub

Sub a02_continue_button()
Dim naechster_schritt As Integer
Dim anzahl_aller_karten As Integer
Dim naechste_karte As String

global_solve_button_gesperrt = 0


If global_antwort_knopf_gedrueckt = 1 Then

anzahl_aller_karten = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G10").Value
naechster_schritt = ActiveWorkbook.Worksheets("kartennnummern").Range("A2").Value
If anzahl_aller_karten >= naechster_schritt Then
    Offset = 14
    naechste_karte = ActiveWorkbook.Worksheets("kartennnummern").Range("B" & (naechster_schritt + Offset)).Value
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("C1").Value = naechste_karte
    naechster_schritt = naechster_schritt + 1
    ActiveWorkbook.Worksheets("kartennnummern").Range("A2").Value = naechster_schritt
    naechster_schritt = naechster_schritt - 2
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G9").Value = naechster_schritt
Else
    Call show__
    cat = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("C3").Value
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("J1").Value = cat
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G9").Value = anzahl_aller_karten
    richtige = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G11").Value
    MsgBox "Alle Karten wurden geprüft!"
    MsgBox "Du hattest " & richtige & " von " & anzahl_aller_karten & " richtige Antworten!"
End If

global_antwort_knopf_gedrueckt = 0
Else
    MsgBox "bitte beantworte die aktuelle Frage bevor du dir die nächste Karte anzeigen lässt!"
End If



End Sub

Sub a03_reset()
ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G9").Value = 0
ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G10").Value = 0
ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G11").Value = 0
ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("G12").Value = 0
ActiveWorkbook.Worksheets("kartennnummern").Range("A2").Value = 1
End Sub

Sub a04_stoppen()
ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("I6").Value = "KARTEN_ERSTELL_MODUS"
End Sub

Sub deleteG()
    Range("G15:G1100").Select
    Selection.ClearContents
End Sub

Sub blatt_kartennumer()
    Sheets("kartennnummern").Select
    Range("B15:B1100").Select
    Selection.ClearContents
    
    Range("C15:C1100").Select
    Selection.ClearContents
    Range("C15").Select
End Sub




Sub aktiviere_bearbeitungs_modus()


global_neue_karteikarten_erstellen = 1

Call gelbb


    'Selection.EntireColumn.Hidden = True
    
    Columns("I:I").Select
    Selection.EntireColumn.Hidden = False
    
    Columns("J:J").Select
    Selection.EntireColumn.Hidden = False
    
    Range("B1").Select
    
    
    Call show__

End Sub







Sub gehe_in_die_letzte_zeile()

flag = 1

ofs = 14
For i = 1 To 1050
    zeile = i + ofs
    wert_ = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("H" & zeile).Value
    If wert_ = "" And flag = 1 Then
        flag = 0
        merker = zeile
    End If
Next i
'MsgBox merker
Range("H" & merker).Select
    Rows(merker & ":" & merker).Select
    
    cat = ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("C3").Value
    ActiveWorkbook.Worksheets("KARTEIKARTEN").Range("J" & merker).Value = cat

End Sub



Sub schwartz()
'
' Makro4 Makro
'

'
    Range("C1:H1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
Sub gelbb()
'
' Makro5 Makro
'

'
    Range("C1:H1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Sub write______links()
Dim i As Integer
soviele_neue_blaetter_ergaenzen = ActiveWorkbook.Worksheets("Inhaltsverzeichnis").Range("A2").Value
For i = 1 To soviele_neue_blaetter_ergaenzen
    k = i + 14
    Sheets(CStr(i)).Select
    Range("C1").Select
    Selection.ClearContents
    
    Range("F1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'KARTEIKARTEN'!B" & k, TextToDisplay:="jump_back"
    Rows("1:1").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
Next i
End Sub


Sub write______links_only_text()
Dim i As Integer
soviele_neue_blaetter_ergaenzen = ActiveWorkbook.Worksheets("Inhaltsverzeichnis").Range("A2").Value
textA = "Drücke str+y (yes) wenn du die Antwort wusstest        Drücke  str+n (no) wenn du die Antwort nicht wusstest"
For i = 1 To soviele_neue_blaetter_ergaenzen
    Sheets(CStr(i)).Select
    Range("I1").Select
    ActiveCell.FormulaR1C1 = textA
Next i
End Sub