Office: VBA - For Schleife

Hallo

ich hab schon viele Schleifen programmiert und mir ist der Fehler vlt paar mal passiert, aber diesmal hab ich keine Ahnung warum er kommt.

Also Problem ist simpel jedoch so simpel, das man nicht versteht warum er kommt^^

Es lautet, "Next ohne For"

Jedoch bin ich schon 10x durchgegangen(Programm ist nicht wirklich groß) und habe Strichliste geführt(sogar bei meinen If's), wenn immer ich eins öffne/schließe.

Und die Strichliste geht auf, d.h 2 mal öffne ich eine Schleife und Schließe sich auch wieder(an der richtigen Stelle)

Das ist das ganze Blatt

Code:

Dim erstesDatum As Date
Dim aktuellesDatum As Date
Dim neuesDatum As Boolean
Dim durchlauf As Boolean
Dim feiertag As String

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile2 As Integer
Dim zeile As Integer
Dim zeilenzähler As Integer

zeile = 53
zeile2 = 4
zeilenzähler = 0
durchlauf = False
erstesDatum = "29.12.2008"

'hier wird überprüft, ob das Datum des ersten Tag geändert worden ist, sonst würde er bei jeden Termin, den man reinschreibt, das gesamte Programm durchlaufen
If neuesDatum = False Then

    If Cells(10, 1) <> erstesDatum Then
        aktuellesDatum = Cells(10, 1)
        neuesDatum = True
        durchlauf = True
    ElseIf Cells(10, 1) = erstesDatum Then
        durchlauf = True
    End If
    
Else
    
    If Cells(10, 1) <> aktuellesDatum And erstesDatum Then
        aktuellesDatum = Cells(10, 1)
        durchlauf = True
    End If
    
End If

'Dieser Code wird nur ausgeführt, wenn sich ein Tag geändert wurde
If durchlauf = True Then

'Löscht Feiertage raus
    Columns("B:I").Select
    Selection.Interior.ColorIndex = xlNone

    For i = 0 To 53 Step 1
        Range("B" + zeile + ":I" + zeile + 8).Select
        With Selection.Interior
            .ColorIndex = 6
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            zeile = zeile + 61

Next 'Hier kommt der Fehler(Codeunterbrechung ist mit Absicht)

Code:

zeile = 10
    zeile2 = 4

    For k = 0 To 380 Step 1
    
        If Cells(zeile, 1) = "" Then
            Exit For
        End If
        
        feiertag = Sheets("Feiertage").Cells(zeile2, 7)
        
        'Markiert Feiergtage rot
        If Cells(zeile, 1) = feiertag Then
            Range("B" + zeile - 7 + ":I" + zeile + 2).Select
                .ColorIndex = 3
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
            zeile2 = zeile2 + 1
        End If
        
        'Nach einer Woche muss er mehre Zeilen überspringen
        zeilenzähler = zeilenzähler + 1
        If zeilenzähler = 5 Then
            zeile = zeile + 21
            zeilenzähler = 0
        Else
            zeile = zeile + 10
        End If
    
    Next
    
End If

End Sub

 

Hallo!

Vor dem "Next" fehlt ein "End With".

 

ach, vielen Dank, und ich such und such und such... -.-