Pivots mit Makro refreshen..
15.02.2013 13:38:18
Nik
folgendes Makro refresht mir alle Pivot-Tabellen (und das sind einige) in meinem File:
Sub RefreshPivot()
Dim p As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each p In ws.PivotTables
p.RefreshTable
Next
Next
End Sub
Weiteres Problem wäre das den neusten Monat im Pivot anzupassen.. Der Makrorecorder hat mir folgendes Ergebnis geliefert:
ActiveSheet.PivotTables("PivotTable127").PivotFields("M&Y").ClearAllFilters
ActiveSheet.PivotTables("PivotTable127").PivotFields("M&Y").PivotFilters.Add _
Type:=xlDateBetween, Value1:="01.09.2011", Value2:="01.01.2013"
Kann man das irgendwie in die Schleife (Pivots refreshen) integrieren? Value-Wert 1 ist immer der gleiche und wird nie geändert. Value-Wert 2 ist eben immer der neuste Wert (also neuster Monat), der angepasst werden sollte.
Vielen lieben Dank für Eure Hilfe und schonmal allen ein schönes Weekend!
Gruss
Nik