In diesem Beispiel berechnet Microsoft Excel Arbeitsmappen, bevor sie gespeichert werden.
Application.Calculation = xlCalculateManual Application.CalculateBeforeSave = True
In diesem Beispiel wird festgelegt, dass das Datenfeld des PivotTable-Berichts in Sheet1 den Unterschied zum Basisfeld berechnet. Das Feld "ORDER_DATE" wird als Basisfeld festgelegt und anschließend das Element "5/16/89" als Basiselement.
With Worksheets("Sheet1").Range("A3").PivotField .Calculation = xlDifferenceFrom .BaseField = "ORDER_DATE" .BaseItem = "5/16/89" End With