Filter in mehreren Pivots aktualisieren
20.07.2020 14:56:47
Tobias
ich habe an die 50 Pivottabellen, die alle u.a. nach dem Jahr filtern. Wenn nun ein neues Jahr beginnt, möchte ich ungern alle Filter manuell auf 2021 stellen müssen. Mein Ansatz war bisher folgender:
Sub Pivot()
' Pivot Makro
Sheets("Pivot_Cockpit").Select
ActiveSheet.PivotTables("Auslastung LKW").PivotFields("Jahr"). _
ClearAllFilters
ActiveSheet.PivotTables("Auslastung LKW").PivotFields("Jahr").CurrentPage _
= "2020"
End Sub
Ich habe den Filter von 2019 auf 2020 gesetzt. Auf einem anderen Tabellenblatt habe ich in Zelle AC5 immer das aktuelle Jahr stehen. Wie kann ich den Code ändern, dass sich "2020" immer in das Jahr ändert, was in AC5 steht?
Vielen Dank im Voraus für eure Hilfe!
Tobias
Anzeige