Ich möchte in meiner Tabelle im Bereich C5:R1000 Abwechselt die Zeilen mit der Farbe Hellblau (Code 35) und Grau (Code 15) hinterlegen.
Wie kann man das machen?
Gruss Klaus
Sub Zellen_färben()
for i= 5 to 1000
if i mod 2 <> 0 then
activesheet.cells(i,3).Interior.ColorIndex = 35
else
activesheet.cells(i,3).Interior.ColorIndex = 15
end if
next i
End Sub
Sub farbig()
Dim i As Integer, a As Integer
For i = 5 To 999 Step 2
Range(Cells(i, 3), Cells(i, 18)).Interior.ColorIndex = 35
Next i
For a = 6 To 1000 Step 2
Range(Cells(a, 3), Cells(a, 18)).Interior.ColorIndex = 15
Next a
End Sub