Wie filtere ich die Pivot-Tabelle basierend auf einem bestimmten Zellenwert in Excel?
Normalerweise filtern wir Daten in einer Pivot-Tabelle, indem wir Elemente in der Dropdown-Liste auswählen, wie im folgenden Screenshot gezeigt. Tatsächlich können Sie eine Pivot-Tabelle basierend auf dem Wert in einer bestimmten Zelle filtern. Die VBA-Methode in diesem Artikel hilft Ihnen bei der Lösung des Problems.
Filtern Sie die Pivot-Tabelle basierend auf einem bestimmten Zellenwert mit VBA-Code
Filtern Sie die Pivot-Tabelle basierend auf einem bestimmten Zellenwert mit VBA-Code
Der folgende VBA-Code kann Ihnen beim Filtern einer Pivot-Tabelle basierend auf einem bestimmten Zellenwert in Excel helfen. Bitte gehen Sie wie folgt vor.
1. Bitte geben Sie einen Wert, nach dem Sie die Pivot-Tabelle filtern möchten, im Voraus in eine Zelle ein (hier wähle ich Zelle H6 aus).
2. Öffnen Sie das Arbeitsblatt mit der Pivot-Tabelle, die Sie nach Zellenwert filtern möchten. Klicken Sie dann mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie im Kontextmenü die Option Code anzeigen. Siehe Screenshot:
3. In der Öffnung Microsoft Visual Basic für Applikationen Fenster, kopieren Sie unter VBA-Code in das Code-Fenster.
VBA-Code: Filter-Pivot-Tabelle basierend auf dem Zellenwert
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
Set xPFile = xPTable.PivotFields("Category")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub
Anmerkungen: Im Code,
4. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Anschließend filtert die Pivot-Tabelle basierend auf dem Wert in Zelle H6 (siehe Abbildung unten):
Sie können den Zellenwert nach Bedarf in andere ändern.
Hinweis: Die Werte, die Sie in Zelle H6 eingeben, sollten genau mit den Werten in der Dropdown-Liste Kategorie der Pivot-Tabelle übereinstimmen.
In Verbindung stehende Artikel:
- Wie kombiniere ich mehrere Blätter in einer Pivot-Tabelle in Excel?
- Wie erstelle ich eine Pivot-Tabelle aus einer Textdatei in Excel?
- Wie verknüpfe ich den Pivot Table-Filter mit einer bestimmten Zelle in Excel?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!























