Hi zusammen,

im Forum gibt es einen Beitrag mit "Zellfarbe verändern, wenn Filter aktiv ist" aber leider färbt er nur die Zeile ein, die ausgewählt ist.
Wie kann ich den Befehl abändern damit nur die Zelle in der 2. Zeile bei aktiviertem Autofilter eingefärbt wird?

Ich danke euch für die Antwort und wünsche einen schönen 1. Advent.

:-)

----------

Option Explicit
Private Sub Worksheet_Calculate()
Dim f As Filter, i As Long
On Error Resume Next
If AutoFilterMode Then
For i = 1 To AutoFilter.Filters.Count
If AutoFilter.Filters(i).On Then

ActiveCell.CurrentRegion.Cells(2, i).Interior.ColorIndex = 3

Else

ActiveCell.CurrentRegion.Cells(2, i).Interior.ColorIndex = Null

End If
Next
Else

ActiveCell.CurrentRegion.Rows(2).Interior.ColorIndex = Null

End If
End Sub