Dim schritt As Integer
Dim alle_schritte As Integer
Dim faktor As Double
Dim sirupteile As Double
Dim wasserteile As Double
Dim subtrahent As Double


Dim gl_soviele_teile_einfaerben As Integer
Dim aufrufe As Integer

'############################################################################
'############################################################################
'############################################################################
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
'############################################################################
'############################################################################
'############################################################################

Sub streifen_alles()


bis_hier = 1911

For i = 19 To bis_hier Step 1     'weiss
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColor = 16243882
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -4.99893185216834E-02
        .PatternTintAndShade = 0
    End With
Next i



For i = 5 To bis_hier Step 2   'grün
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10092441
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Next i



For i = 5 To 1911 Step 7   'gelb
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10092543
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Next i

For i = 6 To 1911 Step 7
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10092543
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Next i


End Sub






Sub euler()

'(1 - 1/n)^n
'3
'2/3 * 2/3 *2/3
'4
'3/4 * 3/4 * 3/4
Dim iterationsschritte As Integer
Dim sirupteile As Double

iterationsschritte = 1000

faktor = 1 - 1 / iterationsschritte
MsgBox faktor
sirupteile = 100

For i = 1 To iterationsschritte
sirupteile = sirupteile * faktor
Next i
MsgBox sirupteile

aufrufe = 0
gl_soviele_teile_einfaerben = sirupteile
Call einfaerben

End Sub






Sub farbe_setzen_blau(spalte_ As String, zeile_ As Integer)
    Range(spalte_ & zeile_).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub


Sub init()

schritt = 0
alle_schritte = ActiveWorkbook.Worksheets("euler").Range("W3").Value
faktor = ActiveWorkbook.Worksheets("euler").Range("W6").Value
subtrahent = ActiveWorkbook.Worksheets("euler").Range("Z1").Value
ActiveWorkbook.Worksheets("euler").Range("X12").Value = "wait for start"
ActiveWorkbook.Worksheets("euler").Range("X13").Value = "wait for start"
sirupteile = 100
wasserteile = 100
aufrufe = 0
Call init_farben
End Sub

Sub nachster_schritt()

If schritt < alle_schritte Then
schritt = schritt + 1

sirupteile = sirupteile * faktor


wasserteile = wasserteile - subtrahent
ActiveWorkbook.Worksheets("euler").Range("X12").Value = schritt
ActiveWorkbook.Worksheets("euler").Range("X13").Value = sirupteile
Call alles_blau_machen_sirupglas
aufrufe = 0
Call farbe_sirupglas
Call alles_weiss_machen_wasserglas
aufrufe = 0
Call farbe_wasserglas
Else
MsgBox "das wasserglas ist leer"
End If
End Sub

Sub farbe_sirupglas()
Call einfaerben_sirupglas
End Sub

Sub farbe_wasserglas()
einfaerben_wasserglas
End Sub


Sub init_farben()
'
' Makro1 Makro
'

'
    Range("L1:U10").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A1:J10").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A16").Select
End Sub


Sub alles_blau_machen_sirupglas()
    Range("A1:J10").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A16").Select
End Sub

Sub alles_weiss_machen_wasserglas()
    Range("L1:U10").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A16").Select
End Sub

Sub farbe_setzen_rot2(spalte_ As String, zeile_ As Integer)
Dim sirupteile_integer As Integer
     aufrufe = aufrufe + 1
     sirupteile_integer = sirupteile
     If aufrufe <= sirupteile_integer Then
    Range(spalte_ & zeile_).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    End If
End Sub


Sub einfaerben_sirupglas()

Dim spalte(1 To 10) As String
Dim zeile(1 To 10) As Integer
spalte(1) = "A"
spalte(2) = "B"
spalte(3) = "C"
spalte(4) = "D"
spalte(5) = "E"
spalte(6) = "F"
spalte(7) = "G"
spalte(8) = "H"
spalte(9) = "I"
spalte(10) = "J"
zeile(1) = 10
zeile(2) = 9
zeile(3) = 8
zeile(4) = 7
zeile(5) = 6
zeile(6) = 5
zeile(7) = 4
zeile(8) = 3
zeile(9) = 2
zeile(10) = 1


For i = 1 To 10
    For k = 1 To 10
        Call farbe_setzen_rot2(spalte(k), zeile(i))
    Next k
Next



End Sub




Sub einfaerben_wasserglas()

Dim spalte(1 To 10) As String
Dim zeile(1 To 10) As Integer
spalte(1) = "L"
spalte(2) = "M"
spalte(3) = "N"
spalte(4) = "O"
spalte(5) = "P"
spalte(6) = "Q"
spalte(7) = "R"
spalte(8) = "S"
spalte(9) = "T"
spalte(10) = "U"
zeile(1) = 10
zeile(2) = 9
zeile(3) = 8
zeile(4) = 7
zeile(5) = 6
zeile(6) = 5
zeile(7) = 4
zeile(8) = 3
zeile(9) = 2
zeile(10) = 1


For i = 1 To 10
    For k = 1 To 10
        Call farbe_setzen_blau2(spalte(k), zeile(i))
    Next k
Next



End Sub




Sub farbe_setzen_blau2(spalte_ As String, zeile_ As Integer)
Dim wasserteile_integer As Integer
     aufrufe = aufrufe + 1
     wasserteile_integer = wasserteile
     If aufrufe <= wasserteile_integer Then
    Range(spalte_ & zeile_).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    End If
End Sub