ich möchte jede 2. Zeile grau schattiert haben, aber auch dann, wenn ich den Filter gesetzt haben. Bei =REST(ZEILE();2)funktioniert das nicht.
Würde mich riesig freuen über Hilfe
Grüß
Peter
Sub JedeZweiteGrau()
Dim r As Range
Dim iCount As Long
iCount = 0
ActiveSheet.Cells.Interior.ColorIndex = 0
For Each r In ActiveSheet.Range("B1:B" & ActiveSheet.UsedRange.Rows.Count).SpecialCells( _
xlCellTypeVisible)
If iCount Mod 2 = 0 Then
r.EntireRow.Interior.ColorIndex = 15
End If
iCount = iCount + 1
Next r
End Sub
Das ist aber ziemlich brutal und prügelt die Formatierung über die gesamte Tabelle. Bereiche musst du eventuell eingrenzen und anpassen, aber ich kenn ja deine Tabelle nicht.
ich möchte jede 2. Zeile grau schattiert haben, aber auch dann, wenn ich den Filter gesetzt _
haben. Bei =REST(ZEILE();2)funktioniert das nicht.
Auch wenn ich in einem Bereich als "Tabelle" formatiert filtere, bleiben die Zeilen farblich getrennt,