Hervorheben gesetzter Autofilter

Wolfgang_HB · 2015-03-16T07:18:42+00:00

Guten Tag, liebe Excellenzen :-) Ich arbeite gemeinsam mit einigen Kollegen mit großen Excellisten und Pivot-Tabellen. Diese Dateien enthalten oft Autofilter. Einige dieser Filter sind gewollte, notwendige Voreinstellungen und sollen nicht verändert werden. (Ein generelles Zurücksetzen ALLER Filter ist mir bekannt, scheidet aber aus) Aber oft stellt man nach der mühsamen Suche in einer großen Datei fest, daß irgendein schusseliger Kollege einen Filter gesetzt und die Datei im gefilterten Zustand abgespeichert hat. Die bordeigene Kennzeichnung eines gesetzten Filters ist meines Erachtens viel zu unauffällig. Ich suche daher für Excel2007 eine Art Prüfungsabfrage, ob und wo in einer Liste Autofilter gesetzt wurden, beispielsweise das farbige Markieren einer Spalte oder des Spaltenkopfes, wenn Jemand hier Werte ausgeblendet hat. Die Ansätze hierfür, die ich bisher gefunden habe, setzen immer Voreinstellungen über Worksheet.Calculate oder eine bedingte Formatierung voraus. Da ich diese Dateien aber nicht entsprechend bearbeiten darf, suche ich eine Möglichkeit, von außen, also z.B. über einen Commandbutton in der Symbolleiste das jeweils aktive Arbeitsblatt zu untersuchen. Ich bedanke mich für Lösungsvorschläge ! Gruß Wolfgang_HB

Hallo Wolfgang!
Puh, gar nicht einfach, musste hier selbst einiges recherchieren und basteln; allerdings sei mir der Hinweis erlaubt, dass Tante Google hier sehr viel Brauchbares anbietet, aber auch in der Entwicklerreferenz zu Excel wird man fündig.
Ein Ansatz über benutzerdefinierte Funktion: http://www.ozgrid.com/VBA/autofilter-criteria.htm
Oder ein Makro, das ich aus o.a. Funktion abgeleitet habe, das Dir anzeigt in welcher Spalte Filter gesetzt sind - optional können hier auch die Spaltenüberschriften (gelb) markiert werden, die gesetzten Filterkriterien werden aber nicht mitausgegeben:

Sub SindFilterImBlatt()
Dim Liste As Range
Dim SpaltenKopf As Object
Dim fListe As String
Dim i As Integer
Dim Markierung As Byte
If ActiveSheet.FilterMode = False Then Exit Sub
Set Liste = ActiveSheet.Range(Cells(3, 1), Cells(3, 1).End(xlToRight))
i = 1
For Each SpaltenKopf In Liste
If SpaltenKopf.Parent.AutoFilter.Filters(i).On Then
fListe = fListe & "Filter in Spalte " & SpaltenKopf.Column & " " & _
"""" & SpaltenKopf.Text & """" & vbCrLf
'SpaltenKopf.Interior.Color = vbYellow 'Optional
End If
i = i + 1
Next
MsgBox fListe, vbCritical, "Filter im aktiven Blatt"
End Sub

Das Makro kannst Du natürlich mit einer Schaltfläche oder bei Öffnen der Arbeitsmappe aufrufen.
Kannst Du damit was anfangen?
Michael

Hallo Wolfgang, Hallo Daniel!
Da Wolfgang ja geschrieben hat, dass er sowohl mit AutoFilter-Listen als auch PivotTabellen arbeitet, habe ich versucht die bisherigen Codes in einen zu integrieren; somit könntest Du, Wolfgang, mit nur einem Makro arbeiten, dass sich an das jeweils aktive Arbeitsblatt anpasst und Dir die Filterungen entsprechend kennzeichnet:

Sub FilterAllerKlassenVereinigt()
Dim i As Long
Dim pvtFeld As PivotField
Dim cntAuto As Integer
Dim cntPivot As Integer
cntAuto = ActiveSheet.AutoFilterMode
cntPivot = ActiveSheet.PivotTables.Count
If cntAuto = True Then
GoTo BeiAutoFilter
ElseIf cntPivot > 0 Then
GoTo BeiPivotFilter
Else
GoTo OhneFilter
End If
BeiAutoFilter:
'Daniels Code
With ActiveSheet.AutoFilter
For i = 1 To .Range.Columns.Count
If .Filters(i).On Then
.Range.Cells(1, i).Interior.Color = vbGreen
Else
.Range.Cells(1, i).Interior.Color = RGB(200, 200, 200)
End If
Next
End With
Exit Sub
BeiPivotFilter:
'Michaels Pivot-Code
For Each pvtFeld In ActiveSheet.PivotTables(ActiveSheet.PivotTables.Count).PivotFields
If pvtFeld.AllItemsVisible = False Then
pvtFeld.LabelRange.Interior.Color = vbGreen
End If
Next
Exit Sub
OhneFilter:
End Sub

Das Makro checkt zunächst ob ein Autofilter vorliegt, wenn nicht ob mindestens eine PivotTabelle im aktiven Blatt ist - trifft beides nicht zu, wird die Routine verlassen. Achtung: Ich bin davon ausgegangen, dass Du in Deinen Blättern entweder eine AutoFilter-Liste hast _oder_ PivotTabellen - wenn beides zutrifft arbeitet das Makro nicht richtig.
Ist aber auch nur als Beispiel gedacht - Daniels Anmerkungen bzgl. Filter auf Standardwert zurücksetzen kann ich inhaltlich unterstützen.
So, mehr hab ich nicht ;-).
LG
Michael

Forumthread: Hervorheben gesetzter Autofilter

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Autofilter in Excel hervorheben und analysieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)