Gruppe
Format
Bereich
Farbe
Thema
Kopfzelle mit aktivem Autofilter markieren
Problem
Wie kann ich die Kopfzelle der Spalten, in denen der Autofilter aktiv ist, markieren?
Lösung
Den VBA-Code in ein Standardmodul eintragen und der Formel in der bedingten Formatierung zuweisen.
StandardModule: Modul1
Function FilterStatus() As Boolean
Application.Volatile
If ActiveSheet.AutoFilter.Filters(Application.Caller.Column).On Then
FilterStatus = True
End If
End Function