Hervorheben gesetzter Autofilter

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Dim i As Long 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

Sub PivotFilter() Dim pvtFeld As PivotField Dim Warnung As String Dim Info As String For Each pvtFeld In Tabelle2.PivotTables(Tabelle2.PivotTables.Count).PivotFields If pvtFeld.AllItemsVisible = False Then Warnung = Warnung & pvtFeld.Name & vbCrLf End If Next Select Case Warnung Case Is = "" Exit Sub Case Else Info = MsgBox("Filter in den Feldern: " & vbCrLf & vbCrLf & Warnung, _ vbInformation, "Filter-Check") End Select End Sub

Sub PivotFilterFelderMarkieren() Dim pvtFeld As PivotField For Each pvtFeld In Tabelle2.PivotTables(Tabelle2.PivotTables.Count).PivotFields If pvtFeld.AllItemsVisible = False Then pvtFeld.LabelRange.Interior.Color = vbYellow End If Next End Sub

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

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 On Error Resume Next Select Case pvtFeld.AllItemsVisible Case Is = True pvtFeld.LabelRange.Interior.ColorIndex = -4142 Case Is = False pvtFeld.LabelRange.Interior.Color = vbGreen End Select Next Exit Sub OhneFilter: End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hervorheben gesetzter Autofilter

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread