Pivot - Filter im Spaltenbereich zurücksetzen

Hallo liebe Excellenzen !
Ich habe auf mehreren Tabellenblättern einer Excel-Arbeitsmappe jeweils eine
"klassische" Pivottabelle mit den üblichen Zeilenfeldern oben links und diversen Spaltenfeldern darunter.
Ich suche jetzt eine Möglichkeit, die manuell gesetzen Filter in der Tabelle
auf Knopfdruck auf "Alle" zurückzusetzen, und zwar je nach Verwendungszweck der Tabelle entweder
a) im Zeilenbereich UND im Spaltenbereich oder
b) nur im Zeilenbereich links oben oder
c) nur im Spaltenbereich unten.
Dies sollte möglichst ohne zuviele manuelle Anpassungen erfolgen, da der
Arbeitsmappe immer wieder neue Tabellenblätter mit neuen Pivot-Tabellen
hinzugefügt werden, für die dieselbe Funktionalität gelten soll.
Trotz intensiver Recherche habe ich bisher keine Lösung gefunden und würde
mich sehr über Eure Hilfe freuen.
Mit freundlichen Grüßen und Dank im Voraus !
Wolfgang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Wolfgang,
hier Makros für die 3 Varianten.
Gruß
Franz

Sub PivotTab_Clear_ColumnFilters()
'In Pivot-Tabelle im aktiven Blatt alle Filter in Spaltenfeldern zurücksetzen
Dim pvTab As PivotTable
Dim pvField As PivotField
Dim wks As Worksheet
Set wks = ActiveSheet
For Each pvTab In wks.PivotTables
For Each pvField In pvTab.ColumnFields
pvField.ClearAllFilters
Next
Next
End Sub
Sub PivotTab_Clear_RowFilters()
'In Pivot-Tabelle im aktiven Blatt alle Filter in Zeilenfeldern zurücksetzen
Dim pvTab As PivotTable
Dim pvField As PivotField
Dim wks As Worksheet
Set wks = ActiveSheet
For Each pvTab In wks.PivotTables
For Each pvField In pvTab.RowFields
pvField.ClearAllFilters
Next
Next
End Sub
Sub PivotTab_Clear_Column_and_RowFilters()
'In Pivot-Tabelle im aktiven Blatt alle Filter in Zeilen- und Spaltenfeldern zurücksetzen
Dim pvTab As PivotTable
Dim pvField As PivotField
Dim wks As Worksheet
Set wks = ActiveSheet
For Each pvTab In wks.PivotTables
For Each pvField In pvTab.RowFields
pvField.ClearAllFilters
Next
Next
For Each pvTab In wks.PivotTables
For Each pvField In pvTab.ColumnFields
pvField.ClearAllFilters
Next
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Pivot - Filter im Spaltenbereich zurücksetzen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivot - Filter im Spaltenbereich zurücksetzen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread