Hallo leute,
ich bekomme dauernd die Fehlermeldung Next ohne For für die Zeile "Else: Next y".
Kann mir einer erklären warum?
Dim x, xx As Integer
Dim y, yy As Integer
For x = 6 To letztezeile
üName = Worksheets("Übersicht").Cells(x, 2).Value
For y = 21 To letztezeileK
If Worksheets("Konfiguration").Cells(y, 3).Value = üName Then
For xx = 4 To 55
For yy = 5 To 56
If Worksheets("Übersicht").Cells(x, xx).Value > Worksheets("Konfiguration").Cells(y, yy).Value Then
Worksheets("Übersicht").Cells(x, xx).Font.ColorIndex = 3
Else: Worksheets("Übersicht").Cells(x, xx).Font.ColorIndex = 1
End If
Next yy
Next xx
Else: Next y
End If
Next x
MFG Philipp
|