Sub Farbe2()
Dim rngZeile As Range
Dim rngZelle As Range
Dim lngZeile As Long
Dim rngSpalte As Range
Dim lngSpalte As Range
Dim i As Integer
lngZeile = 1
i = 0
For Each rngSpalte In ActiveSheet.Range("A1:K11000").Columns
For Each rngZelle In rngSpalte.Cells
If rngZelle.Interior.Color = RGB(0, 255, 0) Then
i = i + 1
lngZelle = lngZelle + 1
If rngZelle.Interior.Color = RGB(0, 255, 0) And i = 1 Then
rngZelle.Interior.Color = RGB(255, 0, 0)
lngZelle = lngZelle - 1
rngZelle.Interior.Color = RGB(255, 0, 0)
lngZelle = lngZelle + 2
End If
Exit For
End If
Next rngZelle
Next rngSpalte
End Sub