Hallo liebes Forum,
ich habe folgenden Code gefunden, mit dem man anscheinend jede zweite Zeile in einer Tabelle einfärben kann.
Der Code klappt nur insoweit, dass die Zeile 6 eingefärbt wird.
Weitere Zeilen werden nicht eingefärbt.
Zudem färbt der Code mir die komplette Zeile ein, meine Tabelle endet allerdings in Spalte AD. Das würde ich gerne bis hier hin begrenzen.
Meine Tabelle fängt in A5 an und endet in AD (länge der Tabelle kann variieren).
Kann mir hier jemand helfen?
Viele Grüße
Dim Zeile As Long
With Tabelle1
For Zeile = 5 To .UsedRange.Rows.Count
If Zeile Mod 2 = 0 Then
.Rows(Zeile).Interior.ColorIndex = 33
End If
Next Zeile
End With