Makro abändern...
13.10.2008 08:19:00
tobstein
ich habe hier ein Makro, dass ein wenig abgeändert werden müsste.
In Spalte C (ab C12) stehen Punktwerte...etwa
28,0
26,5
26,5
26,0
23,5
23,5
usw.
Das Makro soll jetzt ab C12 die Zeilen mit unterschiedlichen Punkten grau färben.
Also die erste Reihe soll grau werden, die beiden Zeilen mit 26,5 nicht...dann wieder mit 26,0 usw.
Das Makro färbt jetzt noch alle Zeilen grau...wie muss ich das Makro ändern?
Vielen Dank im Voraus
tobi
Sub ZellenFaerben()
Dim c As Range
For Each c In Range("C12:C52")
With c
If .Value > 0 Then _
Range(c, .Offset(0, 10)).Interior.ColorIndex = 15
End With
Next c
End Sub
Anzeige