ich möchte ein Macro basteln was in einem markiertem Bereich in jeder zweiten Reihe den Hintergrund grau färbt.
Wie geht das?
Gruß, Wolle
Sub faerben()
Dim i As Integer
For i = 1 To Selection.Rows.Count Step 2
With Selection
.Rows(i).Interior.ColorIndex = 15
End With
Next i
End Sub
Gruß aus dem Sauerland
Jens
Sub grau()
Dim ze As Long
Selection.Interior.ColorIndex = 0
For ze = Selection.Row To Selection.Rows.Count + Selection.Row - 1 Step 2
Cells(ze, Selection.Column).Resize(1, Selection.Columns.Count).Interior.ColorIndex = 15
Next 'ze
End Sub