PIVOT Filterung VBA
24.02.2023 08:26:01
Sassi
ich hoffe, jemand kann mir weiterhelfen. Ich bin relativ neu im "VBA-Geschäft", konnte aber bisher immer alles gut lösen. Aber hier komme ich nicht weiter.
Ich habe eine Excel-Datei mit diversen Tabellenblättern (Datenbankabfragen + PIVOTs). 3 der enthaltenen PIVOTS möchte ich per VBA anhand eines Zellwerts filtern. Das funktioniert auch super mit dem von mir geschriebenen Code. Jedoch gibt es einen Fehler, wenn der Zellwert nicht in den PIVOTS gefunden wird. Mit
On Error Resume Next
komme ich nicht an das gewünschte Ziel. Ziel ist: Wenn in einer der PIVOTS das Kriterium des Zellwerts nicht vorhanden ist, sollen alle "leeren" Daten angezeigt werden, oder einfach "nichts".
Hier mal mein bisheriger Code:
Sub Schaltfläche5_Klicken()
On Error Resume Next
Sheets("Pivot F2").Select
ActiveSheet.PivotTables("PivotTable5").PivotFields("Vertragsbeginn NEU").ClearAllFilters
ActiveSheet.PivotTables("PivotTable5").PivotFields("Vertragsbeginn NEU").CurrentPage = Sheets("ACHTUNG").Range("H9").Text
Sheets("Pivot F3+4").Select
ActiveSheet.PivotTables("PivotTable6").PivotFields("Tatsächliches Abschlussdatum NEU").ClearAllFilters
ActiveSheet.PivotTables("PivotTable6").PivotFields("Tatsächliches Abschlussdatum NEU").CurrentPage = Sheets("ACHTUNG").Range("H9").Text
Sheets("Pivot F12").Select
ActiveSheet.PivotTables("PivotTable13").PivotFields("Monat NEU").ClearAllFilters
ActiveSheet.PivotTables("PivotTable13").PivotFields("Monat NEU").CurrentPage = Sheets("ACHTUNG").Range("H9").Text
End Sub
Kann mir jemand helfen?
Viele Grüße
Sassi