VBA Datumsfilter PivotTable
14.02.2024 09:20:30
maylmz
ich möchte bei meinem PivotTable einen Datumsfilter per VBA =heute.
Bei einem anderen Tabellenblatt mit einer intelligenten Tabelle habe ich das selbe gebraucht und mit folgendem Code aus dem Netz lösen können:
Worksheets("Tabelle1").Range("A1").AutoFilter _
Field:=4, _
Criteria1:="=" & CLng(Date)
Bei dem PivotTable bekomme ich es aber überhaupt nicht hin. Mit dem Recorder habe ich folgendes aufgezeichnet, allerdings kommt hier der Fehler "Dies ist kein gültiges Datum".
Worksheets("Tabelle2").PivotTables("PivotTable1").PivotFields("Datum"). _
ClearAllFilters
Worksheets("Tabelle2").PivotTables("PivotTable1").PivotFields("Datum"). _
PivotFilters.Add2 Type:=xlBeforeOrEqualTo, Value1:="=" & (Date)
Vielen Dank für eure Unterstützung
Gruß, maylmz