Excel 2010 - Farbe bei Änderung von Nummer

Hallo Admins,

ich habe eine Frage bezüglich Excel Zellen-Formatierung an euch!

Bei uns werden aus SAP heraus Listen generiert die in Excel weiterbearbeitet werden, dadurch entsteht eine große Menge an Datensätzen die recht unübersichtlich sind.

Beispielnummer:

Anhand von den Nummern die ich beispielsweise hier angeführt habe soll sich die Farbe der kompletten Zeile ändern (Schriftfarbe) damit man die einzelnen Datensätze besser zuordnen kann.

Sprich:

Alle Datensätze mit 123 - Farbe grün
Alle Datensätze mit 125 - Farbe rot
Alle Datensätze mit 127 - Farbe grün
Alle Datensätze mit 1237 - Farbe rot

Also jedes Mal wenn sich die Nummer ändert soll grün und rot abwechselnd formatiert werden (die ganze Zelle!).

Hat das schon einmal jemand gemacht bzw. kennt sich damit wer aus?
Hab mich leider nicht so wirklich mit Excel beschäftigt, das muss ich wohl nachholen

Danke und schöne Grüße
ITvortex

Sub ColorGroups()
    Dim cell As Range, colCurrent As Long, arrColors As Variant
    'Abwechselnde Farben festlegen  
    arrColors = Array(vbRed, vbGreen)
    colCurrent = arrColors(0)
    With ActiveSheet
        .UsedRange.ClearFormats
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            If cell.Row > 1 Then
                If cell.Value <> cell.Offset(-1, 0).Value Then
                    colCurrent = IIf(colCurrent = arrColors(0), arrColors(1), arrColors(0))
                End If
            End If
            cell.EntireRow.Interior.Color = colCurrent
        Next
    End With
End Sub

cell.EntireRow.Font.Color = colCurrent

> cell.EntireRow.Font.Color = colCurrent
>