Methode 1: Filtern Sie die Pivot-Tabelle basierend auf einem Wert<\/strong><\/span><\/p>\n Dieses spezielle Makro filtert die Pivot-Tabelle namens PivotTable1<\/strong> , um nur die Zeilen anzuzeigen, in denen der Wert in der Spalte \u201e Position\u201c<\/strong> der Pivot-Tabelle dem Wert in Zelle J2<\/strong> von Sheet1<\/strong> entspricht.<\/span><\/p>\n Methode 2: Filtern Sie die PivotTable basierend auf mehreren Werten<\/strong><\/span><\/p>\n Dieses spezielle Makro filtert die Pivot-Tabelle namens PivotTable1<\/strong> , um nur die Zeilen anzuzeigen, in denen der Wert in der Positionsspalte<\/strong> der Pivot-Tabelle einem der Werte im Zellbereich J2:J3<\/strong> entspricht.<\/span><\/p>\n Methode 3: PivotTable-Filter entfernen<\/strong><\/span><\/p>\n Dieses spezielle Makro l\u00f6scht alle Filter aus der Pivot-Tabelle namens PivotTable1<\/strong> .<\/span><\/p>\n Die folgenden Beispiele zeigen, wie jede dieser Methoden in der Praxis angewendet werden kann.<\/span><\/p>\n Nehmen wir an, wir haben aus einem Datensatz in Excel eine Pivot-Tabelle erstellt, um die von Basketballspielern verschiedener Teams und Positionen erzielten Punkte zusammenzufassen:<\/span> <\/p>\n Nehmen wir an, wir m\u00f6chten die Pivot-Tabelle so filtern, dass nur Zeilen angezeigt werden, deren Wert in der Spalte \u201ePosition\u201c \u201eGuard\u201c ist.<\/span><\/p>\n Dazu k\u00f6nnen wir das folgende Makro erstellen:<\/span><\/p>\n Wenn wir dieses Makro ausf\u00fchren, wird die Pivot-Tabelle automatisch gefiltert, um nur Zeilen anzuzeigen, deren Wert in der Spalte \u201ePosition\u201c Guard ist:<\/span> <\/p>\n Die Pivot-Tabelle wurde gefiltert, um nur Zeilen anzuzeigen, deren Wert in der Spalte \u201ePosition\u201c \u201eGuard\u201c ist.<\/span><\/p>\n Angenommen, wir m\u00f6chten stattdessen die Pivot-Tabelle filtern, um nur Zeilen anzuzeigen, deren Wert in der Spalte \u201ePosition\u201c \u201eGuard \u201c oder<\/em> \u201eCenter\u201c ist.<\/span><\/p>\n Dazu k\u00f6nnen wir das folgende Makro erstellen:<\/span><\/p>\n Wenn wir dieses Makro ausf\u00fchren, wird die Pivot-Tabelle automatisch gefiltert, um nur Zeilen anzuzeigen, deren Wert in der Spalte \u201ePosition\u201c \u201eGuard\u201c oder \u201eCenter\u201c ist:<\/span> <\/p>\n Die Pivot-Tabelle wurde gefiltert, um nur Zeilen anzuzeigen, deren Wert in der Spalte \u201ePosition\u201c \u201eGuard\u201c oder \u201eCenter\u201c ist.<\/span><\/p>\n In den folgenden Tutorials wird erl\u00e4utert, wie Sie andere h\u00e4ufige Aufgaben in VBA ausf\u00fchren:<\/span><\/p>\n VBA: So aktualisieren Sie Pivot-Tabellen<\/a> Sie k\u00f6nnen die folgenden Methoden verwenden, um Pivot-Tabellen in Excel mithilfe von VBA zu filtern: Methode 1: Filtern Sie die Pivot-Tabelle basierend auf einem Wert SubFilterPivotTable () Dim pf As PivotField Dim myFilter As String Set pf = ActiveSheet.PivotTables(“ PivotTable1 „).PivotFields(“ Position „) myFilter = ActiveWorkbook.Sheets(“ Sheet1 „).Range(“ J2 „).Value pf.PivotFilters.Add2 xlCaptionEquals, , myFilter End […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"\n SubFilterPivotTable<\/span> ()\n Dim<\/span> pf As<\/span> PivotField\n Dim<\/span> myFilter As<\/span> String\n Set<\/span> pf = ActiveSheet.PivotTables(\" PivotTable1<\/span> \").PivotFields(\" Position<\/span> \")\n myFilter = ActiveWorkbook.Sheets(\" Sheet1<\/span> \").Range(\" J2<\/span> \").Value\n pf.PivotFilters.Add2 xlCaptionEquals, , myFilter\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Sub<\/span> FilterPivotTableMultiple()\n Dim<\/span> v Ace<\/span> Variant\n Dim<\/span> i As<\/span> Integer, j As<\/span> Integer\n Dim<\/span> pf As<\/span> PivotField\n Set<\/span> pf = ActiveSheet.PivotTables(\" PivotTable1<\/span> \").PivotFields(\" Position<\/span> \")\n \n 'specify range with values to filter on<\/span>\n v = Range(\" J2:J3<\/span> \")\n \n 'clear existing filters<\/span>\n pf.ClearAllFilters\n \n 'apply filter to pivot table<\/span>\n With<\/span> pf\n For<\/span> i = 1 TB<\/span> pf.PivotItems.Count\n j = 1\n Do While<\/span> j <= UBound(v, 1) - LBound(v, 1) + 1\n If<\/span> pf.PivotItems(i).Name = v(j, 1) Then\n pf.PivotItems(pf.PivotItems(i).Name).Visible = True\n Exit Do\n Else<\/span>\n pf.PivotItems(pf.PivotItems(i).Name).Visible = False\n End If<\/span>\n j = j + 1\n Loop<\/span>\n Next<\/span> i\n End With<\/span>\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n SubClearPivotTableFilter<\/span> ()\n Dim<\/span> pt As<\/span> PivotTable\n Set<\/span> pt = ActiveSheet.PivotTables(\" PivotTable1<\/span> \")\n pt.ClearAllFilters\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Beispiel 1: Filtern Sie die Pivot-Tabelle basierend auf einem Wert<\/strong><\/span><\/h2>\n
![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/pf1.jpg\")
<\/p>\n SubFilterPivotTable<\/span> ()\n Dim<\/span> pf As<\/span> PivotField\n Dim<\/span> myFilter As<\/span> String\n Set<\/span> pf = ActiveSheet.PivotTables(\" PivotTable1<\/span> \").PivotFields(\" Position<\/span> \")\n myFilter = ActiveWorkbook.Sheets(\" Sheet1<\/span> \").Range(\" J2<\/span> \").Value\n pf.PivotFilters.Add2 xlCaptionEquals, , myFilter\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"Pivot-Tabelle](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/pf2.jpg\")
<\/p>\n Beispiel 2: Filtern Sie eine Pivot-Tabelle basierend auf mehreren Werten<\/strong><\/span><\/h2>\n
Sub<\/span> FilterPivotTableMultiple()\n Dim<\/span> v Ace<\/span> Variant\n Dim<\/span> i As<\/span> Integer, j As<\/span> Integer\n Dim<\/span> pf As<\/span> PivotField\n Set<\/span> pf = ActiveSheet.PivotTables(\" PivotTable1<\/span> \").PivotFields(\" Position<\/span> \")\n \n 'specify range with values to filter on<\/span>\n v = Range(\" J2:J3<\/span> \")\n \n 'clear existing filters<\/span>\n pf.ClearAllFilters\n \n 'apply filter to pivot table<\/span>\n With<\/span> pf\n For<\/span> i = 1 TB<\/span> pf.PivotItems.Count\n j = 1\n Do While<\/span> j <= UBound(v, 1) - LBound(v, 1) + 1\n If<\/span> pf.PivotItems(i).Name = v(j, 1) Then\n pf.PivotItems(pf.PivotItems(i).Name).Visible = True\n Exit Do\n Else<\/span>\n pf.PivotItems(pf.PivotItems(i).Name).Visible = False\n End If<\/span>\n j = j + 1\n Loop<\/span>\n Next<\/span> i\n End With<\/span>\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"Pivot-Tabelle](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/pf3.jpg\")
<\/p>\n Zus\u00e4tzliche Ressourcen<\/strong><\/span><\/h2>\n
VBA: So entfernen Sie doppelte Werte<\/a>
VBA: So z\u00e4hlen Sie die Anzahl der Zeilen im Bereich<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"