Makro abändern zum Zellen färben....
15.06.2006 12:32:57
tobstein
ich habe folgendes Makro um die Felder von Zeilen grau zu färben.
Es werden die Zellen B bis J grau gefärbt...ich bekomme es aber nicht hin, dass auch die A-Felder mit eingefärbt werden.
Was muss ich am Makro ändern...?
Danke für jede Hilfe
Sub ZellenFaerben()
Dim c As Range
For Each c In Range("B12:B75")
With c
If .Value > 0 And .Value Mod 2 = 1 Then _
Range(c, .Offset(0, 8)).Interior.ColorIndex = 15
End With
Next c
End Sub
Anzeige