In diesem Beispiel wird eine Liste der Formeln für die erste Pivot-Tabelle erstellt.
For Each pf in ActiveSheet.PivotTables(1).PivotFormulas r = r + 1 Cells(r, 1).Value = pf.Formula Next