wer könnte mir einen Tipp geben zu folgendem Problem: In einer Aktualisierungsroutine (Private Sub Before Save ...) verwende ich den Befehl "ThisWorkbook.RefreshAll". Jetzt würde ich gerne noch bei allen Pivottabellen in Tabelle2 im Berichtsfilter den Wert einer Variablen (Jahr) als Kriterium einsetzen. Aufgezeichnet am Beispiel sieht es so aus:
ActiveSheet.PivotTables("PivotTable1").PivotFields("Year").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Year").CurrentPage = "2013"
Zwei Filter sind jeweils gesetzt, nur den Filter mit "Year" möchte ich jeweils ändern.
Wie könnte so eine Schleife aussehen?
Über einen Vorschlag würde ich mir freuen.
Grüße, Constantin