Pivot-Filter auf aktuelles Datum festlegen
24.02.2016 11:23:07
Lolo
ich habe aus dem Archiv einen Code gefunden, der in der Pivot-tabelle den Filter auf die aktuelle und zukünftige KW setzt. Diesen habe ich jetzt versucht umzumodelieren auf das aktuelle /zukünftige Datum. Das ganze sieht so aus:
Dim pvTab As PivotTable
Dim pvField As PivotField
Dim pvItem As PivotItem
Application.EnableEvents = False
Application.ScreenUpdating = False
Set pvTab = ActiveSheet.PivotTables("PivotTable1")
Set pvField = pvTab.PageFields("Datum")
pvField.EnableMultiplePageItems = True
pvField.ClearAllFilters
For Each pvItem In pvField.PivotItems
If Val(pvItem.Name) < Date Then
pvItem.Visible = False
End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
Allerdings streicht er mir auch das aktuelle Datum und alle anderen weg und es bleibt nix übrig bis eine Fehlermeldung erscheint, dass die Visible-Eigenschaft des PivotItem-Objektes nicht festgelegt werden kann....
Könnte mir jemand einen Tipp geben, woran das liegt, oder ob an dem Code etwas falsch ist?
Vielen Dank im Vorraus!!
Lolo