' Copy and Paste die häfigsten Befehle:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   zoomen:                   ActiveWindow.Zoom = zoom_zahl
'   variablen:                  Dim var1 As Integer
'                               Dim var1 As String
'                               Dim var1 As Double
'                               Dim var1 As Long
'   Arrays:                     Dim var1(1 to 100) As Integer
'                               Dim var1(1 to 100) As String
'                               Dim var1(1 to 100) As Double
'                               Dim var1(1 to 100) As Long
'   einlesen variable           var1 = ActiveWorkbook.Worksheets("Gliederung").Range("E2").Value
'   schreibe zelle              ActiveWorkbook.Worksheets("Gliederung").Range("E2").Value = var1
'   Filter Spalte B             FILTER_FUER_SPALTE_B
'   alles einblenden            ALLES_EINBLENDEN
'   spalten kopieren            spalten_kopieren
'   ausgabe                     MsgBox "zuerst der String"
'   springe zu Datum            springe_zu_datum
'                                   For zeile = 5 To 2500 Step 1
'                                       pruefe_diesen_zellwert = ActiveWorkbook.Worksheets("CALENDAR").Range("B" & zeile).Value
'                                       ruekgabewert = InStrRev(pruefe_diesen_zellwert, datum_als_zahl, , vbTextCompare)
'                                       If (ruekgabewert > 0) Then
'                                           Rows(zeile & ":" & zeile).Select
'                                       End If
'                                   Next zeile
'   zeile selektieren           Rows(zeile & ":" & zeile).Select
'   zelle selektieren           Range("A1").Select
'   zelle einfärben             einfarben
'   bereich_loeschen            makro_bereich_loeschen
'                                       Range(BEREICH).Select
'                                       Selection.ClearContents
'   bereich_schreiben           makro_bereich_schreiben
'   finde die letzte zeile      finde_die_letzte_zeile
'   wiederkehrende elemente kopieren  wiederkehrende_elemente_kopieren (zum Beispiel alphabet A bis Z in langer Liste immer wieder kopieren)
'   alphabet einlesen (abc)     alphabet_einlesen
'   das letzte element einer spalte einlesen        finde_die_letzte_spalte
'   kalender schreiben          schreibe_tage_des_kalenders
'   streifen                    ergaenze_streifen_fuer_das_wochenende
'   zeile einlesen
'                                   ZEILEN_OFFSET = 4
'                                   Dim seite_A(1 To 20) As Double
'                                   For i = 1 To 5
'                                       w = i + ZEILEN_OFFSET
'                                       seite_A(i) = ActiveWorkbook.Worksheets("page_C").Range("A" & w).Value
'                                   Next i
'   if else if
'                                   If auswahl = 0 Then
'                                       Call keine_nachkomma_stelle
'                                   ElseIf auswahl = 1 Then
'                                       Call eine_nachkomma_stelle
'                                   ElseIf auswahl = 2 Then
'                                       Call zwei_nachkomma_stelle
'                                   End If
'   zeile ausblenden                jede_mit_x_markierte_zeile_ausblenden
'   spalte_ausblenden               jede_mit_x_markierte_spalte_ausblenden
'   input box   eingabe         ganzzahl = Application.InputBox("Bitte Zahl eingeben:", Default:=1, Type:=1) ' 1: ganzzahl 2: string
'   inhaltsverzeichnis          schreibe_inhaltsverzeichnis
'   alle tabellenblätter durchgehen / name tabellenblatt
'    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
'   Verlinkung zu tabellenblatt
'        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
'        array_speichert_tabellen_blatter(i) & "!A1", TextToDisplay:=array_speichert_tabellen_blatter(i)
' Link erzeugen Url Internetseite zB
'    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
'        eingegebener_Link, SubAddress:="home", TextToDisplay:=eingegebener_Link
'   neues tabellenblatt         fuege_eine_notiz_hinzu
'   schreibe_x_neue_seiten      neue tabellenblätter anlegen
'   windows ordner anlegen      Call ordner_anlegen(ordner_name)
' datum einfügen:               ActiveWorkbook.Worksheets("MEETING").Range(zelle).Value = Format(Now, "YYYY" & "_" & "MM" & "_" & "DD")
' Link schreiben                erzeuge_einen_link
' neue zellen einfügen          ZellenEinfügen
' schrift farbe ändern          schrift_in_zeile_7_und_8_rot_darstellen
' cursor position maus:         hier_befindet_sich_die_maus_gerade = Selection.Address   ---> ZELLE
'                               hier_befindet_sich_die_maus_gerade = ActiveCell.Row      ----> ZEILE
'---- code der auf tabellenblatt steht und ausgeführt werden muss wenn sich eine zelle ändert
'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim KeyCells As Range
'Set KeyCells = Range("E1")
'If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
'    Call schreibe_den_bereich_neuer_zellenwert("D7:F12")
'End If
'End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'gglobalen variablen
Dim gl_zeile_in_der_das_suchwort_steht As Integer
Dim gl_erste_zeile_der_tabelle As Integer
Dim gl_letzte_zeile_der_tabelle As Integer
Dim global_aufruf_von_gruener_favoriten_button As String
Dim global_anzahl_elemente_der_liste As Integer
Dim gl_sp_aktueller_zellinhalt As String
Dim global_blauer_button_wurde_gedrückt As String
Dim gl_sp_kategorie As String
Dim gl_sp_beschreibung As String
Dim gl_sp_hyperlink As String
Dim akzueller_zell_inhalt_cursor_global As String
Dim ZEILEN_OFFSET As Integer
Dim kategorie(1 To 250) As String
Dim beschreibung(1 To 250) As String
Dim hyperlink(1 To 250) As String
Dim merke_die_iteration As Integer


Dim alphabet(1 To 1000) As String
Dim bis_hier As Long
Dim farbe As Long
Dim erster_samstag As Integer
Dim erster_sonntag As Integer




Sub call_zoomen(zoom_zahl As Integer)
    ActiveWindow.Zoom = zoom_zahl
End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub aufruf_zoomen()
    Call call_zoomen(280)
End Sub

'Call call_zoomen(280)

'Video_001) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_001) start

Sub makro_mit_button_verknuepfen()
  Dim anzahl_huehner_eier_1 As Integer
  Dim anzahl_huehner_eier_2 As Integer
  Dim summe_huehner_eier As Integer
  anzahl_huehner_eier_1 = ActiveWorkbook.Worksheets("Gliederung").Range("E2").Value
  anzahl_huehner_eier_2 = ActiveWorkbook.Worksheets("Gliederung").Range("E3").Value
  summe_huehner_eier = anzahl_huehner_eier_1 + anzahl_huehner_eier_2
  ActiveWorkbook.Worksheets("Gliederung").Range("E5").Value = summe_huehner_eier
End Sub

'Video_001) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_001) ende


'Video_002) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_002) start

Sub FILTER_FUER_SPALTE_B()
    erste_zeile_der_tabelle = 12
    letzte_zeile_der_tabelle = 17
    Sheets("blatt_A").Select
    Rows(erste_zeile_der_tabelle & ":" & letzte_zeile_der_tabelle).Select
    Selection.EntireRow.Hidden = True
    Call FILTER("B", "blatt_A")
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
erste_zeile_der_tabelle = 12
letzte_zeile_der_tabelle = 17
gelbe_zeilennummer = 7
suche_nach_diesem_string = ActiveWorkbook.Worksheets(name_des_blattes).Range(spalten_buchstabe & gelbe_zeilennummer).Value
For k = erste_zeile_der_tabelle To 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 ' wieder einblende
  End If
Next k
Range("A1").Select
End Sub

Sub ALLES_EINBLENDEN()
    Rows("1:500").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
End Sub

'Video_002) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_002) ende




'Video_003) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_003) start


Sub spalten_kopieren()
Dim zwischenvariable As String
Dim offset As Integer
Dim aktuelle_zeile As Integer
offset = 4
For i = 1 To 4 Step 1
  aktuelle_zeile = offset + i
  zwischenvariable = ActiveWorkbook.Worksheets("page_A").Range("H" & aktuelle_zeile).Value
  ActiveWorkbook.Worksheets("page_A").Range("K" & aktuelle_zeile).Value = zwischenvariable
Next i
End Sub

'Video_003) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_003) ende



'Video_004) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_004) start


Sub zellenwert_einlesen_und_ausgeben()
Dim wert_in_H3 As String
Dim wert_in_H6 As Double
Dim wert_in_H9 As Integer

wert_in_H3 = ActiveWorkbook.Worksheets("page_A").Range("H3").Value
wert_in_H6 = ActiveWorkbook.Worksheets("page_A").Range("H6").Value
wert_in_H9 = ActiveWorkbook.Worksheets("page_A").Range("H9").Value

MsgBox "zuerst der String:"
MsgBox wert_in_H3
MsgBox "danach kommt die Komma-Zahl:"
MsgBox wert_in_H6
MsgBox "und zum Schluss die Ganzzahl:"
MsgBox wert_in_H9
End Sub

'Video_004) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_004) ende



'Video_005) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_005) start


Sub springe_zu_datum()
Dim datum_als_zahl As Long
datum_als_zahl = ActiveWorkbook.Worksheets("CALENDAR").Range("E1").Value
For zeile = 5 To 2500 Step 1
    pruefe_diesen_zellwert = ActiveWorkbook.Worksheets("CALENDAR").Range("B" & zeile).Value
    ruekgabewert = InStrRev(pruefe_diesen_zellwert, datum_als_zahl, , vbTextCompare)
    If (ruekgabewert > 0) Then
      Rows(zeile & ":" & zeile).Select
   End If
Next zeile
End Sub

'Video_005) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_005) ende

'Video_006) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_006) start

Sub farbe_aendern()
Dim farbauswahl_in_B5 As String
Dim wert_in_H6 As Double
Dim wert_in_H9 As Integer
farbauswahl_in_B5 = ActiveWorkbook.Worksheets("page_B").Range("B5").Value
If farbauswahl_in_B5 = "rot" Then                             'rot = 255
    Call einfarben(255)
ElseIf farbauswahl_in_B5 = "blau" Then                        ' blau = 15773696
    Call einfarben(15773696)
ElseIf farbauswahl_in_B5 = "gruen" Then                        'grün = 5296274
    Call einfarben(5296274)
End If
End Sub

Sub einfarben(farb_code As Long)
    Range("F5").Select                  'Zelle F5 auswählen und einfärben
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = farb_code              'hier wird die farbe gesetzt
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

'Video_006) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_006) ende


'Video_007) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_007) start
'''''''''''''''''''''''''''''''''''''''

' löschen:
Sub makro_bereich_loeschen()
Dim zu_loeschender_bereich As String
zu_loeschender_bereich = ActiveWorkbook.Worksheets("page_B").Range("C3").Value
Call loesche_den_bereich(zu_loeschender_bereich)
End Sub

Sub loesche_den_bereich(uebergabe_parameter As String)
    Range(uebergabe_parameter).Select
    Selection.ClearContents
End Sub

'''''''''''''''''''''''''''''''''''''''
' schreiben:
Sub makro_bereich_schreiben()
Dim zu_schreibender_bereich As String
zu_schreibender_bereich = ActiveWorkbook.Worksheets("page_B").Range("C1").Value
Call schreibe_den_bereich(zu_schreibender_bereich)
End Sub

Sub schreibe_den_bereich(uebergabe_parameter As String)
    Range("E1").Select
    Selection.Copy
    Range(uebergabe_parameter).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

'Video_007) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_007) ende

'Video_008) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_008) start

Sub schreibe_den_bereich_neuer_zellenwert(uebergabe_parameter As String)
    Range("E1").Select
    Selection.Copy
    Range(uebergabe_parameter).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

'Das ist in der datei vom tabellenblatt zu finden: (rechtsklick -> code anzeigen)

'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim KeyCells As Range
'Set KeyCells = Range("E1")
'If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
'    Call schreibe_den_bereich_neuer_zellenwert("D7:F12")
'End If
'End Sub


'Video_008) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_008) END

'Video_009) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_009) start

Sub finde_die_letzte_zeile()
flag = 1
erste_zeile_der_liste = 3
offset = erste_zeile_der_liste - 1

For i = 1 To 100
zeile = i + offset
iterations_wert_wert_der_liste = ActiveWorkbook.Worksheets("page_B").Range("B" & zeile).Value
If iterations_wert_wert_der_liste = "" And flag = 1 Then
    flag = 0
    merke_dir_die_erste_freie_zeile = zeile
    letzte_zeile_in_der_noch_ein_eintrag_steht = merke_dir_die_erste_freie_zeile - 1
    das_ist_der_letzte_eintrag = ActiveWorkbook.Worksheets("page_B").Range("B" & letzte_zeile_in_der_noch_ein_eintrag_steht).Value
    ActiveWorkbook.Worksheets("page_B").Range("F6").Value = das_ist_der_letzte_eintrag
    ActiveWorkbook.Worksheets("page_B").Range("F5").Value = letzte_zeile_in_der_noch_ein_eintrag_steht
End If
Next i

End Sub



'Video_009) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_009) ENDE

'Video_010) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_010) start

Sub wiederkehrende_elemente_kopieren()
k = 1
Range("B" & k).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
For i = 0 To 20
    k = i * 26 + 1
    Range("B" & k).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next i
End Sub




Sub alphabet_einlesen()
'dim alphabet(1 to 600) as string  ' --> das ist eine globale variable deren wert auch auuserhalb dieses sub's zur verfügung steht
For i = 1 To 494
    alphabet(i) = ActiveWorkbook.Worksheets("blatt_alphabet").Range("B" & i).Value
Next i
End Sub



Sub finde_die_letzte_spalte()

Call alphabet_einlesen

flag = 1
erste_spalte_der_liste = 1
offset = erste_spalte_der_liste - 1

For i = 1 To 100
spalte = i + offset

iterations_wert_der_liste = ActiveWorkbook.Worksheets("page_B").Range(alphabet(spalte) & "2").Value

If iterations_wert_der_liste = "" And flag = 1 Then
    flag = 0
    merke_dir_die_erste_freie_spalte = spalte

    letzte_spalte_in_der_noch_ein_eintrag_steht = merke_dir_die_erste_freie_spalte - 1
    das_ist_der_letzte_eintrag = ActiveWorkbook.Worksheets("page_B").Range(alphabet(letzte_spalte_in_der_noch_ein_eintrag_steht) & "2").Value
    
    ActiveWorkbook.Worksheets("page_B").Range("F6").Value = das_ist_der_letzte_eintrag
    ActiveWorkbook.Worksheets("page_B").Range("F5").Value = letzte_spalte_in_der_noch_ein_eintrag_steht
End If
Next i

End Sub



'Video_010) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_010) ENDE


'Video_011) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_011) start

Sub schreibe_tage_des_kalenders()
Dim erster_tag As Long
Dim letzter_tag As Long
Dim i As Long
Dim w As Long
Sheets("kalender").Select
erster_tag = ActiveWorkbook.Worksheets("config").Range("D3").Value
letzter_tag = ActiveWorkbook.Worksheets("config").Range("D11").Value
erster_samstag = ActiveWorkbook.Worksheets("config").Range("D16").Value
erster_samstag = erster_samstag + 1
erster_sonntag = ActiveWorkbook.Worksheets("config").Range("D17").Value
erster_sonntag = erster_sonntag + 1
bis_hier = letzter_tag - erster_tag
For i = erster_tag To letzter_tag
    w = i - (erster_tag - 1)
    ActiveWorkbook.Worksheets("kalender").Range("B" & w).Value = i
Next i
Call setze_datums_format
'Call ergaenze_streifen_fuer_alle_tage
Call ergaenze_streifen_fuer_das_wochenende
Range("A1").Select
End Sub
Sub setze_datums_format()
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "[$-x-sysdate]dddd, mmmm dd, yyyy"
End Sub
Sub ergaenze_streifen_fuer_das_wochenende()
 farbe = 65535 ' 65535 bedeutet gelb
 Call streifen(farbe, erster_samstag, 7) 'samstag gelb einfarben
 Call streifen(farbe, erster_sonntag, 7) 'sonntag gelb einfrben
End Sub
Sub streifen(farbe_als_uebergabe As Long, starte_hier As Integer, jeden_Xten_tas As Integer)
For i = starte_hier To bis_hier Step jeden_Xten_tas
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColor = 10092543
        .Color = farbe_als_uebergabe   '65535 gelb   5296274 grün   weiss 10092543
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Next i
End Sub

'Sub ergaenze_streifen_fuer_alle_tage()
' farbe = 10092543 'weiss
' Call streifen(farbe, 1, 2) 'weisser streifen
 
' farbe = 5296274 'grün
' Call streifen(farbe, 2, 2) 'grüner streifen
'End Sub

'Video_011) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_011) ENDE


'Video_012) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_012) start


Sub berechne_flaechen_inhalt()

Dim seite_A(1 To 20) As Double
Dim seite_B(1 To 20) As Double
Dim flaechen_inhalt(1 To 20) As Double

ZEILEN_OFFSET = 4

'lesen
For i = 1 To 5
    w = i + ZEILEN_OFFSET
    seite_A(i) = ActiveWorkbook.Worksheets("page_C").Range("A" & w).Value
    seite_B(i) = ActiveWorkbook.Worksheets("page_C").Range("B" & w).Value
    flaechen_inhalt(i) = seite_A(i) * seite_B(i)
Next i

'schreiben
For i = 1 To 5
    w = i + ZEILEN_OFFSET
    ActiveWorkbook.Worksheets("page_C").Range("D" & w).Value = flaechen_inhalt(i)
Next i

End Sub




'Video_012) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_012) ende








'Video_014) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_014) start

Sub setze_nach_komma_stellen()
auswahl = ActiveWorkbook.Worksheets("page_D").Range("B4").Value

If auswahl = 0 Then
    Call keine_nachkomma_stelle
ElseIf auswahl = 1 Then
    Call eine_nachkomma_stelle
ElseIf auswahl = 2 Then
    Call zwei_nachkomma_stelle
End If
End Sub


Sub keine_nachkomma_stelle()
    Range("D4:D7").Select
    Selection.NumberFormat = "0"" cm"""
    Range("A12").Select
End Sub

Sub eine_nachkomma_stelle()
    Range("D4:D7").Select
    Selection.NumberFormat = "0.0"" cm"""
    Range("A12").Select
End Sub

Sub zwei_nachkomma_stelle()
    Range("D4:D7").Select
    Selection.NumberFormat = "0.00"" cm"""
    Range("A12").Select
End Sub

'Video_014) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_014) ende


'Video_016) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_016) start

Sub jede_mit_x_markierte_zeile_ausblenden()
    Dim i As Integer
    For i = 1 To 400
        zwischenvariable = ActiveWorkbook.Worksheets("page_E").Range("A" & i).Value
        If zwischenvariable = "x" Then
            Call zeile_ausblenden(i)
        End If
    Next i
End Sub
Sub jede_mit_x_markierte_spalte_ausblenden()
    Dim i As Integer
    Call alphabet_einlesen
    For i = 1 To 400
        zwischenvariable = ActiveWorkbook.Worksheets("page_E").Range(alphabet(i) & "1").Value
        If zwischenvariable = "x" Then
            Call spalte_ausblenden(i)
        End If
    Next i
End Sub
Sub zeile_ausblenden(uebergabe_parameter As Integer)
    Rows(uebergabe_parameter & ":" & uebergabe_parameter).Select
    Selection.EntireRow.Hidden = True
End Sub
Sub spalte_ausblenden(uebergabe_parameter As Integer)
    Columns(alphabet(uebergabe_parameter) & ":" & alphabet(uebergabe_parameter)).Select
    Selection.EntireColumn.Hidden = True
End Sub
Sub spalten_einblenden()
    Columns("A:ZA").Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
End Sub
Sub zeilen_einblenden()
    Rows("1:10000").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
End Sub

'Video_016) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_016) ende




'Video_017) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_017) start

Sub verknuepfe_strings()
    Dim string_variable_1 As String
    Dim string_variable_2 As String
    Dim neuer_string As String
    
    string_variable_1 = "haus"
    string_variable_2 = "schuhe"
    
    neuer_string = string_variable_1 & string_variable_2
    
    If neuer_string = "hausschuhe" And string_variable_1 = "haus" Then
        MsgBox "Hallo Hallo"
    End If
    
    If neuer_string = "brot" Or string_variable_1 = "haus" Then
        MsgBox "Servus"
    End If
End Sub


'Video_017) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_017) ende


'Video_018) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_018) start

Sub inputbox_benutzen()
    Dim ganzzahl As Integer
    Dim x As Integer
    Dim y As Integer
    x = 2
    'Type:------------------ https://www.herber.de/xldialoge/a_inputbox.html#type
    '1   Zahl
    '2   Text (Zeichenfolge)
    ganzzahl = Application.InputBox("Bitte Zahl eingeben:", Default:=1, Type:=1) ' 1: ganzzahl 2: string
    y = ganzzahl * x
    MsgBox "das doppelte ihrer Zahl ist: " & y

    zeichenkette = Application.InputBox("Bitte Wort:", Default:="??", Type:=2)
    MsgBox "Sie haben folgendes eingegeben: " & zeichenkette
End Sub

'Video_018) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_018) ende



'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

'Video_021) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_021) start

Sub schreibe_x_neue_seiten()
Dim name_der_tabellenblaetter(1 To 300) 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
    k = soviele_neue_blaetter_ergaenzen + 1 - i
    name_der_tabellenblaetter(i) = k
    Call fuege_neues_blatt_hinzu(CStr(name_der_tabellenblaetter(i)))
Next i
Sheets("Inhaltsverzeichnis").Select
Call schreibe_inhaltsverzeichnis
End Sub


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

'Video_021) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_021) ende


'Video_022) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_022) start

Sub einen_ordner_anlegen()
    Dim ordner_name As String
    verzeichnis = ActiveWorkbook.Worksheets("blatt_K").Range("C3").Value
    ordner_name = ActiveWorkbook.Worksheets("blatt_K").Range("C5").Value
    Call ordner_anlegen(ordner_name)
End Sub

Sub viele_ordner_anlegen()
    Dim ordner_name(1 To 1000) As String
    verzeichnis = ActiveWorkbook.Worksheets("blatt_K").Range("C3").Value
    anzahl_neue_ordner = ActiveWorkbook.Worksheets("blatt_K").Range("C7").Value
    For i = 1 To anzahl_neue_ordner
            w = i + 8
            ordner_name(i) = ActiveWorkbook.Worksheets("blatt_K").Range("C" & w).Value
            Call ordner_anlegen(ordner_name(i))
    Next i
End Sub

Sub ordner_anlegen(ordner_name As String)
    verzeichnis = ActiveWorkbook.Worksheets("blatt_K").Range("C3").Value
    gesamtter_pfad = verzeichnis & "\" & ordner_name
    MkDir gesamtter_pfad
End Sub





'Video_022) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_022) ende


'Video_023) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_023) start

Sub neues_meeting_anlegen()
    Call zellen_einfuegen(6, 8)
    ActiveWorkbook.Worksheets("MEETING").Range("A7").Value = "Meeting:"
    ActiveWorkbook.Worksheets("MEETING").Range("C7").Value = "Participants:"
    teilnehmer_liste_1 = ActiveWorkbook.Worksheets("MEETING").Range("J1").Value
    teilnehmer_liste_2 = ActiveWorkbook.Worksheets("MEETING").Range("J2").Value
    teilnehmer_liste_3 = ActiveWorkbook.Worksheets("MEETING").Range("J3").Value
    teilnehmer_liste_4 = ActiveWorkbook.Worksheets("MEETING").Range("J4").Value
    auswahl_teilnehmer_liste = ActiveWorkbook.Worksheets("MEETING").Range("G4").Value
    If auswahl_teilnehmer_liste = 1 Then
        teilnehmer = teilnehmer_liste_1
    ElseIf auswahl_teilnehmer_liste = 2 Then
        teilnehmer = teilnehmer_liste_2
    ElseIf auswahl_teilnehmer_liste = 3 Then
        teilnehmer = teilnehmer_liste_3
    ElseIf auswahl_teilnehmer_liste = 4 Then
        teilnehmer = teilnehmer_liste_4
    End If
    ActiveWorkbook.Worksheets("MEETING").Range("D7").Value = teilnehmer
    ActiveWorkbook.Worksheets("MEETING").Range("C8").Value = "die Aufgaben von..."
    
    Call datum_einfuegen("A8")
    Call schrift_in_zeile_7_und_8_rot_darstellen
    Range("A5").Select
End Sub
Sub zellen_einfuegen(start As Integer, wieviele As Integer)
Rows(start & ":" & start).Select
For i = 1 To wieviele
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
End Sub

Sub datum_einfuegen(zelle As String)
    ActiveWorkbook.Worksheets("MEETING").Range(zelle).Value = Format(Now, "YYYY" & "_" & "MM" & "_" & "DD")
End Sub
Sub sprige_nach_oben()
    Range("A5").Select
End Sub
Sub erzeuge_einen_link()
  eingegebener_Link = Application.InputBox("Link:", Default:=1, Type:=2)
  Dim hier_befindet_sich_die_maus_gerade As String
  hier_befindet_sich_die_maus_gerade = Selection.Address
  Range(hier_befindet_sich_die_maus_gerade).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        eingegebener_Link, SubAddress:="home", TextToDisplay:=eingegebener_Link
End Sub
Sub ZellenEinfügen()
  Dim hier_befindet_sich_die_maus_gerade As String
  hier_befindet_sich_die_maus_gerade = ActiveCell.Row
  anzahl = Application.InputBox("Wieviele neue Zeilen?", Default:=1, Type:=1)
  For i = 1 To anzahl Step 1
    Rows(hier_befindet_sich_die_maus_gerade & ":" & hier_befindet_sich_die_maus_gerade).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Next i
  Range("A" & hier_befindet_sich_die_maus_gerade).Select
End Sub
Sub schrift_in_zeile_7_und_8_rot_darstellen()
    Rows("7:7").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Range("A5").Select
End Sub




'Video_023) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_023) ende


'Video_024) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_024) start


Sub select_button_blau()
    global_blauer_button_wurde_gedrückt = "ja"
    gl_sp_kategorie = "C"
    gl_sp_beschreibung = "D"
    gl_sp_hyperlink = "E"
    gl_sp_aktueller_zellinhalt = "D"
    Call schreibe_gruene_zelle("ja")
End Sub

Sub select_button_rot()
    global_blauer_button_wurde_gedrückt = "nein"
    gl_sp_kategorie = "J"
    gl_sp_beschreibung = "K"
    gl_sp_hyperlink = "L"
    gl_sp_aktueller_zellinhalt = "K"
    Call schreibe_gruene_zelle("ja")
End Sub

Sub schreibe_gruene_zelle(wird_zelle_geschrieben As String)
Dim aktuelle_zeile As Integer
aktuelle_zeile = ActiveCell.Row
If global_aufruf_von_gruener_favoriten_button = "ja" Then
    akzueller_zell_inhalt_cursor_global = ActiveWorkbook.Worksheets("DASHBOARD").Range("D" & aktuelle_zeile).Value
Else
akzueller_zell_inhalt_cursor_global = ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_aktueller_zellinhalt & aktuelle_zeile).Value
End If
If wird_zelle_geschrieben = "ja" Then
    ActiveWorkbook.Worksheets("DASHBOARD").Range("G7").Value = akzueller_zell_inhalt_cursor_global
ElseIf wird_zelle_geschrieben = "nen" Then
    ' nichts tun
End If
End Sub

Sub plus_button()
    If gl_sp_kategorie = "" Then
        MsgBox "Bitte select button drücken"
    Else
        Call dashboard_funktion("ja")
        ' bei plus brauch ich den treffer  -> merke_die_iteration
        ' und den drüber                   -> merke_die_iteration - 1
        'erst den treffer einlesen
        diese_zeile_wurde_getroffen = merke_die_iteration
        'werte einlesen der zeile, die getroffen wurde
        kategorie_treffer = kategorie(diese_zeile_wurde_getroffen)
        beschreibung_treffer = beschreibung(diese_zeile_wurde_getroffen)
        hyperlink_treffer = hyperlink(diese_zeile_wurde_getroffen)
        'werte einlesen der zeile die ÜBER der Treffer-Zeile steht ---------aber nur wenn der Treffer ungleich 1 ist (die oberste kann nicht mehr getauscht werden)
        If diese_zeile_wurde_getroffen = 1 Then
    
        Else
            kategorie_ueber = kategorie(diese_zeile_wurde_getroffen - 1)
            beschreibung_ueber = beschreibung(diese_zeile_wurde_getroffen - 1)
            hyperlink_ueber = hyperlink(diese_zeile_wurde_getroffen - 1)
        End If
        ' jetzt ZEILEN TAUSCHEN---------aber nur wenn der Treffer ungleich 1 ist (die oberste kann nicht mehr getauscht werden)
        If diese_zeile_wurde_getroffen = 1 Then
    
        Else
            ' 1) in Zeile drüber den Treffer schreiben
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_kategorie & (diese_zeile_wurde_getroffen - 1 + ZEILEN_OFFSET)).Value = kategorie_treffer
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_beschreibung & (diese_zeile_wurde_getroffen - 1 + ZEILEN_OFFSET)).Value = beschreibung_treffer
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_hyperlink & (diese_zeile_wurde_getroffen - 1 + ZEILEN_OFFSET)).Value = hyperlink_treffer
            ' 2) in Treffer-Zeile die Zeile von drüber schreiben
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_kategorie & (diese_zeile_wurde_getroffen - 0 + ZEILEN_OFFSET)).Value = kategorie_ueber
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_beschreibung & (diese_zeile_wurde_getroffen - 0 + ZEILEN_OFFSET)).Value = beschreibung_ueber
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_hyperlink & (diese_zeile_wurde_getroffen - 0 + ZEILEN_OFFSET)).Value = hyperlink_ueber
        End If
    End If
    Call set_links_dashboard
End Sub

Sub minus_button()
    If gl_sp_kategorie = "" Then
        MsgBox "Bitte select button drücken"
    Else
        Call dashboard_funktion("nein")
        ' bei minus brauch ich den treffer  -> merke_die_iteration
        ' und den drunter                   -> merke_die_iteration + 1
        'erst den treffer einlesen
        diese_zeile_wurde_getroffen = merke_die_iteration
        'werte einlesen der zeile, die getroffen wurde
        kategorie_treffer = kategorie(diese_zeile_wurde_getroffen)
        beschreibung_treffer = beschreibung(diese_zeile_wurde_getroffen)
        hyperlink_treffer = hyperlink(diese_zeile_wurde_getroffen)
        'werte einlesen der zeile die UNTER der Treffer-Zeile steht ---------aber nur wenn der Treffer ungleich 7 ist (die unterste kann nicht mehr getauscht werden)
   
        Call was_ist_die_letzte_beschriebene_zeile
        If diese_zeile_wurde_getroffen = global_anzahl_elemente_der_liste Then 'global_letzte_beschriebene_zeile   'ehemals global_anzahl_elemente_der_liste = 7
    
        Else
            kategorie_unter = kategorie(diese_zeile_wurde_getroffen + 1)
            beschreibung_unter = beschreibung(diese_zeile_wurde_getroffen + 1)
            hyperlink_unter = hyperlink(diese_zeile_wurde_getroffen + 1)
        End If
        ' jetzt ZEILEN TAUSCHEN---------aber nur wenn der Treffer ungleich 7 ist (die unterste kann nicht mehr getauscht werden)
        If diese_zeile_wurde_getroffen = global_anzahl_elemente_der_liste Then 'ehemals global_anzahl_elemente_der_liste = 7
    
        Else
            ' 1) in Zeile drüber den Treffer schreiben
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_kategorie & (diese_zeile_wurde_getroffen + 1 + ZEILEN_OFFSET)).Value = kategorie_treffer
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_beschreibung & (diese_zeile_wurde_getroffen + 1 + ZEILEN_OFFSET)).Value = beschreibung_treffer
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_hyperlink & (diese_zeile_wurde_getroffen + 1 + ZEILEN_OFFSET)).Value = hyperlink_treffer
            ' 2) in Treffer-Zeile die Zeile von drüber schreiben
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_kategorie & (diese_zeile_wurde_getroffen - 0 + ZEILEN_OFFSET)).Value = kategorie_unter
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_beschreibung & (diese_zeile_wurde_getroffen - 0 + ZEILEN_OFFSET)).Value = beschreibung_unter
            ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_hyperlink & (diese_zeile_wurde_getroffen - 0 + ZEILEN_OFFSET)).Value = hyperlink_unter
        End If
    End If
    Call set_links_dashboard
End Sub


Sub dashboard_funktion(wert_aus_gruener_zelle As String)
Dim aktuelle_zeile As Integer
flag_continue_running = 1
If wert_aus_gruener_zelle = "ja" Then
    lese_gruene_zelle = ActiveWorkbook.Worksheets("DASHBOARD").Range("G7").Value
ElseIf wert_aus_gruener_zelle = "nein" Then
    lese_gruene_zelle = akzueller_zell_inhalt_cursor_global
End If
ZEILEN_OFFSET = 7
For i = 1 To 30
    w = i + ZEILEN_OFFSET
    kategorie(i) = ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_kategorie & w).Value
    beschreibung(i) = ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_beschreibung & w).Value
    hyperlink(i) = ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_hyperlink & w).Value
Next i
For i = 1 To 30
    w = i + ZEILEN_OFFSET
    If beschreibung(i) = lese_gruene_zelle Then
        merke_die_iteration = i
    End If
Next i
End Sub



Sub setze_favoriten()
global_aufruf_von_gruener_favoriten_button = "ja"
gl_sp_kategorie = "C"
gl_sp_beschreibung = "D"
gl_sp_hyperlink = "E"
Call schreibe_gruene_zelle("nein")
Call dashboard_funktion("nein")
'MsgBox merke_die_iteration
ersetze = Application.InputBox("Lege das Element auf Nummer....", Default:=1, Type:=1) ' 1: ganzzahl 2: string
ActiveWorkbook.Worksheets("DASHBOARD").Range("J" & (ZEILEN_OFFSET + ersetze)).Value = kategorie(merke_die_iteration)
ActiveWorkbook.Worksheets("DASHBOARD").Range("K" & (ZEILEN_OFFSET + ersetze)).Value = beschreibung(merke_die_iteration)
ActiveWorkbook.Worksheets("DASHBOARD").Range("L" & (ZEILEN_OFFSET + ersetze)).Value = hyperlink(merke_die_iteration)
global_aufruf_von_gruener_favoriten_button = "nein"
Call set_links_dashboard
End Sub

Sub was_ist_die_letzte_beschriebene_zeile()
flag = 1
offset = ZEILEN_OFFSET
For i = 1 To 100
zeile = i + offset
iterations_wert_wert_der_liste = ActiveWorkbook.Worksheets("DASHBOARD").Range(gl_sp_beschreibung & zeile).Value
If iterations_wert_wert_der_liste = "" And flag = 1 Then
    flag = 0
    global_anzahl_elemente_der_liste = i - 1
End If
Next i
End Sub

Sub ALLES_EINBLENDEN_dashboard()
    Rows("1:500").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
End Sub


Sub init_filter_dashboard()
    gl_erste_zeile_der_tabelle = 8
    gl_letzte_zeile_der_tabelle = 200
    Sheets("DASHBOARD").Select
    Rows(gl_erste_zeile_der_tabelle & ":" & gl_letzte_zeile_der_tabelle).Select
    Selection.EntireRow.Hidden = True
    gl_zeile_in_der_das_suchwort_steht = 2
End Sub

Sub FILTER_FUER_SPALTE_C_dash()
    Call init_filter_dashboard
    Call FILTER_gl("C", "DASHBOARD")
End Sub
Sub FILTER_FUER_SPALTE_D_dash()
    Call init_filter_dashboard
    Call FILTER_gl("D", "DASHBOARD")
End Sub
Sub FILTER_FUER_SPALTE_E_dash()
    Call init_filter_dashboard
    Call FILTER_gl("E", "DASHBOARD")
End Sub
Sub FILTER_FUER_SPALTE_J_dash()
    Call init_filter_dashboard
    Call FILTER_gl("J", "DASHBOARD")
End Sub
Sub FILTER_FUER_SPALTE_K_dash()
    Call init_filter_dashboard
    Call FILTER_gl("K", "DASHBOARD")
End Sub
Sub FILTER_FUER_SPALTE_L_dash()
    Call init_filter_dashboard
    Call FILTER_gl("L", "DASHBOARD")
End Sub


Sub FILTER_gl(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 set_links_dashboard()
ZEILEN_OFFSET = 7
For i = 1 To 200
    w = i + ZEILEN_OFFSET
    hyperlink_blau = ActiveWorkbook.Worksheets("DASHBOARD").Range("E" & w).Value
    If hyperlink_blau = "" Then
    
    Else
    Range("E" & w).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        hyperlink_blau, SubAddress:="home", TextToDisplay:=hyperlink_blau
    End If
Next i

For i = 1 To 200
    w = i + ZEILEN_OFFSET
    hyperlink_rot = ActiveWorkbook.Worksheets("DASHBOARD").Range("L" & w).Value
    If hyperlink_rot = "" Then
    
    Else
    Range("L" & w).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        hyperlink_rot, SubAddress:="home", TextToDisplay:=hyperlink_rot
    End If
Next i
Range("A1").Select
End Sub

Sub farbe_setzen()
    Columns("E:E").Select
    With Selection.Font
        .Color = -1003520
        .TintAndShade = 0
    End With
    Columns("L:L").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    
Range("A1").Select
End Sub



Sub add_element_to_dashboard()

ZEILEN_OFFSET = 7

For i = 1 To 200
    w = i + ZEILEN_OFFSET
    kategorie(i) = ActiveWorkbook.Worksheets("DASHBOARD").Range("C" & w).Value
    beschreibung(i) = ActiveWorkbook.Worksheets("DASHBOARD").Range("D" & w).Value
    hyperlink(i) = ActiveWorkbook.Worksheets("DASHBOARD").Range("E" & w).Value
Next i

For i = 1 To 200
    w = i + ZEILEN_OFFSET
    ActiveWorkbook.Worksheets("DASHBOARD").Range("C" & w + 1).Value = kategorie(i)
    ActiveWorkbook.Worksheets("DASHBOARD").Range("D" & w + 1).Value = beschreibung(i)
    ActiveWorkbook.Worksheets("DASHBOARD").Range("E" & w + 1).Value = hyperlink(i)
Next i

ActiveWorkbook.Worksheets("DASHBOARD").Range("C8").Value = ""
ActiveWorkbook.Worksheets("DASHBOARD").Range("D8").Value = ""
ActiveWorkbook.Worksheets("DASHBOARD").Range("E8").Value = ""

Call set_links_dashboard

End Sub







'Video_024) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_024) ende