I would like to read/save with VBA the current grouping of a
pivotfield (a date either grouped by month, quarter or year) so I can
restore it later via VBA.

Anyone an idea how I can read the current grouping of pivot field?

This is a code example how the grouping can be doen with VBA. But how
can I read the group status???
' Group Date by Month, Quarter, Year
pt.PivotFields("DetailDate").LabelRange.Group Start:=True, _
End:=True, periods:= _
Array(False, False, False, False, True, True, True)