Anbei die Datei damit man es sich besser Vorstellen kann ... wie es
aussehen sollte.
https://www.herber.de/bbs/user/17580.xls
gruss
oli
Sub Farbe()
For Each zelle In Range("A1:A25235")
If zelle < 9 Then
Rows(zelle.Row).Interior.ColorIndex = 3
End If
Next
End Sub