Office: (Office 2007) Spalten in denen per Autofilter gefiltert wird farbig markieren (Überschrift)

Hallo,

ich habe eine umfangreiche Tabelle, in der Autofilter gesetzt sind.
Jetzt möchte ich, daß bei jeder Änderung des Filters, bei den Spalten wo ein Filterkriterium gesetzt ist, die Zelle mit der Überschrift farbig markiert wird.

Ich habe es mit folgendem code probiert (Auszug):
sub Testautofilter
..
do while i

:)

 

Moin, Turbo,

die Unsitte des Selektierens... Sollte immer nur ein Filter gesetzt werden, könnte die Schleife danach verlassen werden:

Code:

 

Grüezi Turbo

Füge die folgende Funktion in ein allgemeines Modul deiner Mappe ein:
Code:

Nun markiere deine Zelle mit dem Autofilter und füge die folgende Formel in der Bedingten Formatierung hinzu (Bezug zur Zelle noch anpassen) und lege eine Farbe deiner Wahl fest:

=AF_KRIT(A1)""


Jetzt werden alle Spaltenüberschriften mit gesetztem Autofilter farblich hervorgehoben.

 

Hallo zusammen,

auch wenn ich nicht der Verfasser dieses Betrages bin, so habe ich ihn mit Interesse verfolgt.

Leider hat der Code von Jinx bei mir nicht funktioniert, erhielt einen Laufzeitfehler (möglicherweise habe ich aber auch einen Fehler beim Einbau des Codes gemacht, möchte ich nicht ausschliessen)

Die Funktion von Thomas Ramel dagegen hat auf Anhieb prima funktioniert.
Dies kann ich für meine Anwendungen gut gebrauchen, somit sage ich mal Danke im Namen derer, die auch was damit anfangen können.

Ich möchte die Gelegenheit nutzen, all denen zu danken, die hier im Forum sehr hilfsbereit sind. so konnte ich mir bereits unzählige Tipps und Codes hier holen, von denen ich nicht dachte, dass es sie gibt.
Einst glaubte ich, recht gut mit Excel umgehen zu können, aber bei den Fachleuten, die hier zu finden sind, bin ich ein ganz kleiner Fisch im großen Becken.

In diesem Sinne, weiter so...
Gruß
waterman5

 

Moin, waterman5,

ohne den Inhalt der Fehlermeldung zu kennen ist Hilfestellung schwierig - Excel97 und Excel2002 hatten bei mir keine Probleme bei der Ausführung (weder mit Worksheet_Change noch mit Worksheet_SelectionChange), es sind keine weiteren Ereignisse in der Tabelle vorhanden.

 

hi jinx,

du hattest recht,
nachdem ich den Code nochmals eingebaut hatte, funktionierte dieser auch, allerdings nur mit: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Mit "Private Sub Worksheet_Change(ByVal Target As Excel.Range)" passierte beim Filtern nichts, erst als ich bei gefilterten Datensätzen in einer Spalte etwas dazugeschrieben habe, wurde die Überschrift der gefilterten Spalte rot.

nochmals danke
Gruß
waterman5

 

Moin, waterman5,

das liegt nun mal an den unterschiedlichen Auslösern für die Ereignisse: einmal reicht das Versetzen des Mauszeigers, das andere Mal muss eine Änderung im Zellinhalt vorgenommen werden...