leider ist beim Folgenden Code vom Franz:
'Getestet unter Excel 2016 (Office 365)
'Funktioniert nicht unter Excel 2010
Sub aaTest()
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 IsDate(pvItem.Name) Then
If CDate(pvItem.Name)
ein Problem aufgetreten, dass sich wie folgt äußert:
in meiner Liste sind die Daten vom 10.02.2016 bis zum heutigen Datum 02.03.2016 in dieser Form eingetragen.
Wenn ich das Makro durchlaufen lasse, dann zeigt mir das "pvItem.Name" die Werte als:
"2/15/2016"
"2/16/2016"
..........
"2/29/2016"
"3/01/2016" an.
Das "CDate(pvItem.Name)" sieht aber folgendermaßen aus:
02.10.2016
02.11.2016 - mm.dd.yyyy
02.12.2016
\ /
13.02.2016
14.02.2016
.................. - dd.mm.yyyy
29.02.2016
\ /
03.01.2016 - mm.dd.yyyy
er switcht also zwischendrin... kann man das iwie unterbinden?
Denn je nachdem muss dann das heutige Datum eingestellt werden.
Vielen Dank im Vorraus,
Loreen