Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

PIVOT-Bereichsfilter mit VBA setzen

PIVOT-Bereichsfilter mit VBA setzen
15.07.2015 08:37:36
Sandra
Hallo ihr Lieben!
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PIVOT-Bereichsfilter mit VBA setzen
15.07.2015 11:04:33
Raphael
Hallo Sandra,
Versuch mal das Tagesdatum in der Zelle A1 per VBA zu setzen, evtl. löst das dein Problem.
Gruess Raphael
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige