Blöde Frage: Aber wie kann man mehrer Spalten einer Pivottabelle gleichzeitig ändern (z.B. von Anzahl auf Summe)? Wenn ich mehrere selektiere, dann ändert sich immer nur eine Spalte.
Viele Grüße
Jochen
Sub alle_auf_Summe()
Dim df As PivotField
For Each df In ActiveSheet.PivotTables(1).DataFields
df.
Function = xlSum
Next
End Sub