Gruppieren in PivotTabelle mit VBA - es sollen nur die Datumsfelder gruppiert werden

[LeRonimor]

Hallo zusammen,

ich habe eine bereits bestehende Pivot Tabelle mit verschiedenen Spalten, Zeilen, Filtern und Werten.
Nun möchte ich via VBA die Datumsfelder gruppieren, so dass mir die Werte usw. gebündelt in Monate/Jahre angezeigt werden.

Code:

Sub DatumsGruppierung()

   For i = 1 To Worksheets("A").PivotTables.Count
   
    With ActiveSheet.PivotTables(i).PivotFields("Datum").DataRange.Cells
       .Group Start:=Range("A1"), End:=Range("A23500"), By:=1, Periods:=Array(False, False, False, False, True, False, True)
    End With

   Next

End Sub

So weit bin ich schonmal gekommen....

Allerdings ist in diesem Fall ja die Bedingung, dass die Datumsfelder in A1 anfangen und bis A23500 nur eben diese vorhanden sind. Leider ist dies nicht so...gibt es eine Möglichkeit, dass ohne bestimmtes Auswahlfeld und nur mit der Bedingung, dass es sich um ein Datumsfeld handelt, die Werte gruppiert werden?

Vielen Dank für die Hilfe!

[schauan]

Hallöchen,

hilft Dir das eventuell weiter?

https://docs.microsoft.com/en-us/office/...d.datatype