Thema: Kopfzelle mit aktivem Autofilter markieren

Download Beispiel-Arbeitsmappe

Home

Gruppe

Format

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

Beiträge aus dem Excel-Forum zu den Themen Format und Farbe

Hintergrundfarbe in Tabellen	Bedingte Formatierung vor Copy/Paste schützen
mit VBA Farbe von CB´s steuern	Bed. Formatierung, wenn alle Beding. erfüllt.
Telefonnummer automatisch per VBA formatieren	Komplettes Excel Sheet kopieren mit Formaten
Bedingte Formatierung per VBA mit Schleife	Kartendiagramm per VBA erstellen und formatieren
Zelle färben wenn Wert in Liste vorkommt	bedingte Formatierung
Zellfarbe per Cond Formatting nach Zellfarbe änder	UserForm im Querformat drucken
Bedingte Formatierung	Teilstringabfrage bei bedingter Formatierung
Bedingte Formatierung mit UND Verknüpfung	Textformat (VBA)
Bedingte Formatierung Frage	Array in Tabelle kopieren, Verlust von Format
Abfrage färben	Übernahme in Word Format wird nicht übernommen
VBA, 4 Informationen in 4 Zellen schreiben	bedingte Formatierung mit mehreren Bedingungen
Datum aus Oracle-Abfrage als Datum formatieren	Bedingte Formattierung
Zellen einfärben trotz Passwortschutz	Zellen einfärben wenn Bedingung erfüllt
Bedingte Formatierung - kleiner als Fehler	Zahlenformat Handynr.
Diagramme und ihr Format	bedingte formatierung per VBA
Bedingte Formatierung bezogen auf 2. Zelle	Formatgleichheit von Zeichenfolgen für SVERWEIS
bedingte Formatierung	Bedingte Formatierung
Tabellen - Zellen - Formatieren -	Format übertragen
Datumsformatierung	Formatierung anderer Diagramme
Hintergrundfarbe von Zeilen	Zellenformatierung speichern
Farben aus einer Arbeitsmappe übernehmen	Diagrammformatierung übertragen
Zahlenformat global überprüfen	wenn z.B. Zahl 12 dann grün (Bedingte Formatierung
wenn z.B. Zahl 12 dann grün (Bedingte Formatierung	Zahlenformatierung in einem Textfeld
Zeilen löschen in denen Text mit best. Farbe steht	Zahlenformat
bedingte Formatierung für zellenbereich