Fehlermeldung: Loop ohne Do --> dabei ist das Do vorhanden...???
Könnt ihr mir da weiterhelfen?



Sub Einfärben()

Dim i As Integer
i = 2                       'Start in Zeile2


Do
        If Worksheets("Mängelliste").Cells(i, 9).Value = "Ja" Then
                Worksheets("Mängelliste").Range("I" & i).Interior.ColorIndex = 43
        
         If Worksheets("Mängelliste").Cells(i, 9).Value = "Nein" Then
                Worksheets("Mängelliste").Range("I" & i).Interior.ColorIndex = 39
               
        End If
    i = i + 1
    
   
Loop Until Worksheets("Mängelliste").Cells(i, 1).Value = ""       'Schleifenabbruch am Ende der Liste

  
End Sub