Zum Verzweifeln - AutoFilterÄnderung und Makro
Holger
unten stehendes Makro von Daniel funtioniert super,
es färbt jede zweite Zeile. Super Sache, weil viel übersichtlicher.
Jedoch finde ich kein WorkSheet Ereignis, das dieses
Makro automatisch startet, sobald die Auswahl durch einen
AutoFilter verändert wurde.
Verändere ich die Auswahl, sind alle Zeilen verrutscht.
Starte ich das Makro manuell aus dem Editor, wird alles
wieder schön angepasst.
Nur es muss ja automatisch gehen, gibt es da keine Lösung?
Sub Workbook_SheetSelectionChange()
Application.ScreenUpdating = False
'Variablen dimensionieren
Dim Zeile, ZeilenNr As Integer
With ActiveSheet.UsedRange.Rows
.Interior.ColorIndex = xlNone
.Borders.ColorIndex = xlNone
End With
ZeilenNr = 7
For Zeile = 7 To ActiveSheet.UsedRange.Rows.Count
With Rows(Zeile)
If .Hidden = False Then
If ZeilenNr Mod 2 = 0 Then
.Interior.ColorIndex = 15
.Borders.Weight = xlThin
.Borders.ColorIndex = 16
ZeilenNr = ZeilenNr + 1
Else
ZeilenNr = ZeilenNr + 1
End If
End If
End With
Next Zeile
Application.ScreenUpdating = True
End Sub