In diesem Beispiel wird das Feld "Bestelldatum" in Perioden von 10 Tagen zusammengefasst.
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable Set groupRange = pvtTable.PivotFields("ORDER_DATE").DataRange groupRange.Cells(1).Group by:=10, _ periods:=Array(False, False, False, _ True, False, False, False)