der nachstehende Code funktioniert wie gewünscht (kein Wunder wurde mir ja auch hier zur Verfügung gestellt), aber was ich nicht bedacht hatte, ist das die Tabelle wachsen oder auch schrumpfen kann.
Da sich der Code auf einen bestimmten bereich bezieht wird dieser dementsprechend dargestellt.
Wie muß dieser Code umgebaut werden das sich der Code an die Tabelle anpasst?
Soll heissen, wenn in Spalte A nichts mehr steht, beende das Einfärben.
Sub Farbe()
Dim Zelle As Range
For Each Zelle In Range("G3:K113")
With Zelle
Select Case .Value
Case Is ""
.Interior.ColorIndex = 4
Case Is = ""
.Interior.ColorIndex = 3
End Select
End With
Next
End Sub
Danke für's lesenGruss Volker