ich habe eine Datentabelle mit bestimmte personenbezogenen Zeitabschnitten (Name, Startdatum, Enddatum).
In einer Pivottabelle möchte ich auf diese Daten zugreifen. Dort soll gefiltert werden, welche Personen zum aktuellen Datum anwesend sind.
Hierzu habe ich folgenden Code geschrieben:
Dim Datum As Date
Datum = Date
ActiveSheet.PivotTables("PivotTable3").PivotFields("Start Datum"). _
ClearAllFilters
ActiveSheet.PivotTables("PivotTable3").PivotFields("Start Datum"). _
PivotFilters.Add Type:=xlBeforeOrEqualTo, Value1:=Datum
Beim Ausprobieren fand ich heraus, dass das Datum über letzten Befehl scheinbar im Format MM.DD.YYYY erwartet wird. Beispielsweise habe ich am 8.7.15 die Funktion getestet und in der Pivottabelle wurde nach dem 7.8. gefiltert.
Dies habe ich nun über
Datum = Format(Datum, "mm.dd.yyyy")
versucht zu umgehen.
Leider meldet mir das Programm nach wie vor die Fehlermeldung Laufzeitfehler 1004 Das eigegebene Datum ist kein gültiges Datum. Versuchen Sie die Eingabe erneut.
Hat jemand eine Idee, wie ich in einer Pivottabelle über VBA nach dem aktuellen Datum filtern kann?
Herzliche Grüße
Patrick