In diesem Beispiel wird die Formel für das erste berechnete Feld festgelegt.
Worksheets(1).PivotTables(1).CalculatedFields.Item(1) _ .Formula = "=Revenue - Cost"