Office: mehrere Berichtsfilter gleichzeitig aktualisieren

Hallo,
ich habe folgendes Problem:
Ich muss in einer Datei monatlich mehrerer Pivots-Berichtsfilter auf den letzten Monat aktualisieren.
Es gibt mehrere Tabellenblätter auf denen jeweils mehrere Pivots sind.
Hier mein Versuch alle Pivotsfilter eines Tabellenblattes per Makro auf den aktuellen Monat zu filtern. Leider erhalte ich den Fehler: Fehler beim Komplilieren: For ohne Next
Kann mir jemand helfen den Fehler zu beheben? Meine Kenntnisse in VBA reichen dazu leider nicht aus.

Sub berichtsfilter()
Dim pt As PivotTable
Dim pf As PivotFields
For Each pt In ActiveWorkbook.Worksheets("xx")
For Each pf In pt
pt.PivotFields("Monat").ClearAllFilters
pt.PivotFields("Monat").Current Page = [J1].Value 'Auswahl des aktuellen Monats in bestimmter Zelle BSP. Juni '
Next pt
Next pf

End Sub

:)

 

Hi funswifty,

das sollte auch ohne VBA gehen.

Stichwort Datenschnitt:

Klicke in eine der Pivottabelle-> Datenschnitt einfügen-> Datumsfeldauswählen.

Das musst du bei allen Pivots hinzufügen.

Wenn du jetzt in einer den Monat änderst, ändern sich in allen anderen die Monate auch.

VG feli

 

Hi feli,

danke für den Tipp, den ich gerade ausprobiert habe. Leider muss ich auch beim Datenschnitt jeden Filter beim Datenschnitt nacheinander manuell anpassen. Und genau das würde ich gerne automatisieren.
Hast du vielleicht einen weiteren Tipp?

Vorab Merci.

 

Sorry, hatte noch vergessen, dass du die Datenschnittverbindung über dein Datumsfeld aktivieren musst

 

Danke Feli,

jetzt klappt´s und ist genau das was ich gesucht habe.

 

super, gern geschehen.