Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Pivot - Filter im Spaltenbereich zurücksetzen

Pivot - Filter im Spaltenbereich zurücksetzen
11.02.2016 14:09:22
Wolfgang
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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Pivot - Filter im Spaltenbereich zurücksetzen
11.02.2016 14:35:51
fcs
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

Anzeige
AW: Pivot - Filter im Spaltenbereich zurücksetzen
11.02.2016 15:42:40
Wolfgang
Hallo Franz !
Das wird meine Arbeit sehr erleichtern.
Du bist mein Held !
1000 + 1 Dank !
Gruß
Wolfgang
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Pivot-Filter im Spaltenbereich schnell zurücksetzen


Schritt-für-Schritt-Anleitung

Um die Filter in einer Pivot-Tabelle zurückzusetzen, kannst Du die folgenden VBA-Makros verwenden. Diese ermöglichen es Dir, die Filter im Zeilen- oder Spaltenbereich oder in beiden Bereichen gleichzeitig zurückzusetzen.

  1. Öffne deine Excel-Arbeitsmappe mit der Pivot-Tabelle.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Einfügen eines neuen Moduls:
    • Klicke auf Einfügen > Modul.
  4. Füge den folgenden Code ein:
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
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro aus, indem Du ALT + F8 drückst, das gewünschte Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

  • Fehler: Makro funktioniert nicht
    Lösung: Stelle sicher, dass Du die richtige Pivot-Tabelle aktiv hast, bevor Du das Makro ausführst.

  • Fehler: Keine Filter zurückgesetzt
    Lösung: Überprüfe, ob in der Pivot-Tabelle tatsächlich Filter gesetzt sind. Wenn keine Filter aktiv sind, gibt es nichts zurückzusetzen.


Alternative Methoden

Wenn Du keine Makros verwenden möchtest, kannst Du auch die Pivot-Tabelle klassische Ansicht nutzen, um Filter manuell zurückzusetzen:

  1. Klicke auf die Dropdown-Pfeile der Spalten- oder Zeilenfelder.
  2. Wähle die Option "Alle" aus, um die Filter zurückzusetzen.

Praktische Beispiele

Angenommen, Du hast eine Pivot-Tabelle mit Verkaufsdaten und möchtest die Filter für die Produkttypen im Spaltenbereich zurücksetzen. Verwende einfach das Makro PivotTab_Clear_ColumnFilters, um dies schnell zu erreichen.

Ein weiteres Beispiel wäre, wenn Du alle Filter in der Pivot-Tabelle zurücksetzen möchtest, um eine neue Analyse zu beginnen. Nutze dafür das Makro PivotTab_Clear_Column_and_RowFilters.


Tipps für Profis

  • Nutze die Tastenkombinationen ALT + F8, um Makros schnell auszuführen.
  • Du kannst auch einen Excel Shortcut erstellen, um das Makro mit einer Kombination von Tasten zu verknüpfen, sodass Du es noch schneller aufrufen kannst.
  • Wenn Du regelmäßig mit Pivottabellen arbeitest, lohnt es sich, die VBA-Programmierung zu lernen, um Deine Arbeit weiter zu automatisieren.

FAQ: Häufige Fragen

1. Wie kann ich alle Filter in einer Pivot-Tabelle gleichzeitig zurücksetzen?
Nutze das Makro PivotTab_Clear_Column_and_RowFilters, um alle Filter im Zeilen- und Spaltenbereich gleichzeitig zurückzusetzen.

2. Gibt es eine Tastenkombination, um Filter in Excel zurückzusetzen?
Ja, Du kannst die Tastenkombination ALT + F8 verwenden, um Makros auszuführen, die die Filter zurücksetzen. Eine spezifische Tastenkombination für das Zurücksetzen aller Filter gibt es nicht standardmäßig, aber Du kannst eine eigene erstellen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige