Färben jeder zweiten Zeile
03.02.2017 08:22:34
Gunter
ich möchte, dass in meinem Dokument automatisch jede zweite Zeile eingefärbt wird zur besseren Übersicht. Im Internet habe ich diesen Befehl gefunden:
Dim i As Long
For i = 3 To ActiveSheet.UsedRange.Rows.Count
If i Mod 2 = 1 Then
Range("B" & i & ":M" & i).Interior.ColorIndex = 37
End If
Next i
Kann mir da jemand weiterhelfen?
Mit freundlichen Grüßen Gunter
Anzeige