PDA

Vollständige Version anzeigen : Pivotfilter mehrere Tabellenblätter VBA


Constantin123
24.08.2017, 10:46
Hallo zusammen,

bin neu in dem Forum hier, habe aber schon viel als Gast mitgelesen und schon oft profitiert. Dafür schon mal danke.

Leider komme ich mit einem Problem gerade nicht weiter.
Ich habe eine Arbeitsmappe mit vielen Tabellenblättern auf fast allen Blätter sind Pivottabellen (außer auf der Datengrundlage).

Jede Pivot beinhaltet das gleiche Feld "Dokdat".
Ich versuche gerade mit einem Makro für alle Blätter gleichzeitig ein Filter zu setzen (Datengrundlage ist als Datum formatiert):


Dim pvTab As PivotTable
Dim pvField As PivotField
Dim wks As Worksheet

For Each wks In ThisWorkbook.Sheets
For Each pvTab In wks.PivotTables
For Each pvField In pvTab.ColumnFields
pvTab.PivotFields("Dokdat").PivotFilters.Add _
Type:=xlDateBetween, Value1:="01.01.2017", Value2:="30.06.2017"
Next
Next
Next

End Sub


Als Fehler gibt er mir einen "Anwendungs-oder Objektdefinierten Fehler" wieder.

Jemand eine Idee?

Vielen Dank,
Constantin

Constantin123
25.08.2017, 10:53
Konnte es lösen.
Muss erst alle Filter clearen bevor ich neue setzen darf.

pvTab.PivotFields("Dokdat").ClearAllFilters