PIVOT-Bereichsfilter mit VBA setzen
15.07.2015 08:37:36
Sandra
Ich habe einen Code, mit dem ich bei allen Pivot-Tabellen in einer Datei (verteilt über mehrere Blätter) den Breichsfilter "Datum" auf den Weet von A1 (gestriges Datum) setzen kann. Der Code funktioniert auch einwandfrei.
Jetzt möchte diesen Code allerdings beim Öffnen der Datei verwenden, und da gibt er mir immer einen 1004 Fehler zurück. Allerdings immer nur 1 Mal am Tag! Nachdem ich den Code dann einmal händisch ausführe läuft er auch wieder beim Öffnen. Jemand eine Idee?
Folgenden Zeile ist beim Debuggen markiert:
pt.PivotFields("Datum ").CurrentPage = Range("Date1").Value
Fehlermeldung:
Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler
Private Sub Workbook_Open()
Sheets("ERSATZTEILE").Select
Range("A1").Select
Dim ws As Worksheet
Dim pt As PivotTable
On Error Resume Next
For Each ws In ThisWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotFields("Datum ").ClearAllFilters
pt.PivotFields("Datum ").CurrentPage = Range("Date1").Value
Next
Next
Application.ScreenUpdating = False
End Sub
Anzeige