Schleife im Refresh-Makro
06.05.2013 14:35:39
Nik
ich habe folgendes Makro zum Pivot refreshen, was auch ganz gut funktioniert:
----------------------------------------
Sub RefreshPivot()
Dim p As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each p In ws.PivotTables
p.RefreshTable
p.PivotFields("M&Y").ClearAllFilters
p.PivotFields("M&Y").PivotFilters.Add _
Type:=xlDateBetween, Value1:="01.09.2011", Value2:="01.01.2013"
Next
Next
End Sub
-------------------------------------------------
Allerdings habe ich jetzt ein Worksheet das mir ein Fehler generiert, da eben dort keine Zeitperiode integriert ist. Wie ändere ich das Makro am besten an, so dass es bei Fehler diese einfach ignoriert und trotzdem weiter macht?
Vielen lieben Dank und Gruss
Nik