Sub Farbe2()
Dim rngZeile As Range
Dim rngZelle As Range
Dim rngSpalte As Range
Dim i As Integer
lngZeile = 1
i = 0
For Each rngSpalte In ActiveSheet.Range("A1:K11000").Columns 'Suchbereich anpassen
For Each rngZelle In rngSpalte.Cells
If rngZelle.Interior.Color = RGB(0, 255, 0) Then
i = i + 1 'Zähler für bedingte Formatierung (2,5 aufeinanderfolgende)
Else: i = 0
If rngZelle.Interior.Color = RGB(0, 255, 0) And i = 2 Then 'Wenn hellgrün und Zähler 1 --> Rot markieren
rngZelle.Interior.Color = RGB(255, 0, 0)
i = 0
End If
Exit For
End If
Next rngZelle
Next rngSpalte
End Sub