Makro: jede zweite Zeile andersfarbig
Holger
aus diesem Forum habe ich unten stehendes Makro gefischt.
Funktioniert soweit alles, nur sobald durch AutoFilter die Auswahl verändert wird,
gerät natürlich alles durcheinander. Mit einer bedingten Formatierung möchte ich es ungern
lösen, mir ist eine reine VBA Lösung lieber.
Hierbei bräuchte ich ein Ereignis, welches das Makro nach jeder Änderung ausführt.
Sowas wie das WorkSheet Change Ereignis, das sich eben auf die Autofilter bzw den View bezieht.
Gibt es sowas oder welche Möglichkeiten gibt es, das Problem auf andere Weise zu lösen?
Sub RowsFärben()
Application.ScreenUpdating = False
'Variablen dimensionieren
Dim Zeile, ZeilenNr As Integer
'Schleife für die gesamte Selektion
For Zeile = 7 To ActiveSheet.UsedRange.Rows.Count
'Zeilen zählen
ZeilenNr = ZeilenNr + 1
'Für jede 2. Zeile Farbe festlegen
If ZeilenNr Mod 2 = 0 Then
Rows(Zeile).Interior.ColorIndex = 15
Rows(Zeile).Borders.Weight = xlThin
Rows(Zeile).Borders.ColorIndex = 16
Else
Rows(Zeile).Interior.ColorIndex = xlNone
Rows(Zeile).Borders.ColorIndex = xlNone
End If
Next
Application.ScreenUpdating = True
End Sub