Datumsfilter für Pivottabelle
07.07.2020 20:19:02
Alexander
ich möchte in einer Pivotabelle nur Einträge von einem bestimmten Zeitraum herausfiltern. Leider bricht die Begrenzung des Zeitraumes immer mit dem Laufzeitfehler 1004 ab.
With ActiveSheet.PivotTables("PivotTable2").PivotFields("vesata cutoff")
.Orientation = xlPageField
.Position = 1
End With
Range("A20").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B20").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(RC[-1],1)+0.3"
Range("A20:B20").Select
Selection.NumberFormat = "dd/mm/yyyy hh:mm"
With ActiveSheet.PivotTables("PivotTable2").PivotFields("vesata cutoff")
.ClearAllFilters
.EnableMultiplePageItems = True
.PivotFilters.Add Type:=xlDateBetween, _
Value1:=CDbl(ActiveSheet.Range("A20").Value), _
Value2:=CDbl(ActiveSheet.Range("B20").Value)
End With
Bin für jeden Tip dankbar
Test-Datei ist hier hinterlegt:
https://www.herber.de/bbs/user/138837.xlsm