Office: VBA und Pivot

Guten Abend zusammen, (Excel 2007)

ich versuche per VBA in die Pivot Auswahl ein Datum zu schreiben. Ich brauche von jedem Tag immer 2 Werte von der Auswertung. Excel schreibt mir die Werte auch automatisch in eine andere Datei wie gewünscht, wenn ich das Datum von Hand änder. Vorhanden sind Daten von einem Monat. Bekomme aber mit diesem Code immer eine Laufzeitfehlermeldung 1004, weil er mir in die Pivot Auswahl ein All schreibt und nicht das Datum :

Sub dat_scheib()
mo = Month([I2])
jahr = Year([I2])
startdatum = CDate("01." & mo & "." & jahr)

Do Until mo <> Month([I2])
ActiveSheet.PivotTables("PivotTable1").PivotFields("Datum").ClearAllFilters

ActiveSheet.PivotTables("PivotTable1").PivotFields("Datum").CurrentPage = _
Format(startdatum, "dd/mm/yy")

ActiveSheet.PivotTables("PivotTable2").PivotFields("Datum").ClearAllFilters

ActiveSheet.PivotTables("PivotTable2").PivotFields("Datum").CurrentPage = _
Format(startdatum, "dd/mm/yy")

startdatum = startdatum + 1

DoEvents
Loop

End Sub

Er hat wohl ein Problem mit: ClearAllFilters

Lösche ich das raus, dann laufen zwar alle Tage super durch, aber nun sind die ausgewerteten Daten dann alle gleich.

ich hoffe mir kann jemand dabei helfen

Gruss

 

Niemand eine Idee oder sind die Informationen zu mager... :-( ?

 

Problem selbst gelöst ;-)