Jede zweite farbig bis letzte gefüllte
06.10.2021 21:12:47
Milan
ich habe ein VBA Code zusammengeklebt, dass funktioniert, aber ich kriege es nicht hin, dass es färbt nur bis letzte gefüllte Zeile in meinem Bereich.
Kann jemand mir dabei helfen?
Die VBA Code sieht so aus:
Option Explicit
Sub JedeZweiteFarbig()
Dim lngRow As Long
With Tabelle1
For lngRow = 11 To .UsedRange.Rows.Count Step 2
.Range(.Cells(lngRow, 1), .Cells(lngRow, 5)).Interior.Color = RGB(235, 241, 222) 'hell grün
Next
End With
End Sub
