Filter einer Pivot "leeren"
Schritt-für-Schritt-Anleitung
Um den Filter einer Pivot-Tabelle in Excel zu leeren und nur einen bestimmten Wert anzuzeigen, kannst Du den folgenden VBA-Code verwenden. Dieser Code setzt die Sichtbarkeit aller anderen PivotItems auf "False", während das gewünschte Element auf "True" bleibt.
-
Öffne Excel und Deine Arbeitsmappe.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Rechtsklicke im Projekt-Explorer auf "VBAProject (DeineDatei.xlsx)".
- Wähle
Einfügen > Modul.
-
Kopiere und füge den folgenden VBA-Code in das Modul ein:
Sub FilterPivot()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle2")
Dim p As PivotTable: Set p = Ws.PivotTables("PivotTable1")
Dim f As PivotField: Set f = p.PivotFields("Lorem")
Dim i As PivotItem
Dim s As String
s = "C" ' Hier den gewünschten Wert angeben
With f
For Each i In .PivotItems
i.Visible = (i.Name = s)
Next i
End With
End Sub
-
Ändere den Wert von s in den gewünschten Filterwert.
-
Schließe den VBA-Editor und führe das Makro über ALT + F8 aus.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode zum Leeren eines Pivot-Filters ist die Verwendung des ClearAllFilters-Befehls, um alle Filter gleichzeitig zu entfernen. Hier ist ein Beispiel:
Sub ClearAllPivotFilters()
With Sheets(1).PivotTables(1)
.PivotFields(1).ClearAllFilters
End With
End Sub
Diese Methode ist hilfreich, wenn Du alle Filter zurücksetzen möchtest, bevor Du neue Filter anwendest.
Praktische Beispiele
Angenommen, Du hast eine Pivot-Tabelle, die die Verkaufszahlen verschiedener Produkte anzeigt. Wenn Du nur die Verkaufszahlen für ein bestimmtes Produkt, z.B. "Produkt A", anzeigen möchtest, kannst Du den ersten VBA-Code verwenden und den Wert von s auf "Produkt A" setzen.
Das Ergebnis wird sein, dass nur die Daten für "Produkt A" angezeigt werden, während alle anderen Produkte ausgeblendet werden.
Tipps für Profis
- VBA-Filter für Pivot-Tabellen: Nutze die Flexibilität von VBA, um komplexe Filter zu erstellen, die auf verschiedenen Bedingungen basieren.
- Optimierung: Wenn Du regelmäßig mit Pivot-Tabellen arbeitest, speichere Deine VBA-Skripte in einer separaten Datei oder als Vorlage, um die Wiederverwendbarkeit zu erhöhen.
- Fehlerbehandlung: Implementiere Fehlerbehandlung in Deinen VBA-Codes, um unerwartete Probleme zu erkennen und zu beheben.
FAQ: Häufige Fragen
1. Wie kann ich mehrere Filter in einer Pivot-Tabelle gleichzeitig leeren?
Du kannst den ClearAllFilters-Befehl verwenden, um alle Filter gleichzeitig zurückzusetzen.
2. Ist dieser VBA-Code in allen Excel-Versionen kompatibel?
Ja, der verwendete VBA-Code ist mit den meisten modernen Excel-Versionen kompatibel, die VBA unterstützen. Achte jedoch darauf, dass die Pivot-Tabelle korrekt benannt ist.