Ist es möglich per Default das Einblenden von Teilergebnissen in Pivottabellen zu verhindern?
Vielen Dank,
Frank
Sub Pivot_Zwischenergebnisse_raus()
'entfernt alle Zwischenergebnisse einer Pivot-Tabelle
Dim pf As PivotField, pt As PivotTable
Application.ScreenUpdating = False
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.PivotFields
If pf "Daten" Then pf.Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, _
False)
Next pf
Next pt
Application.ScreenUpdating = True
End Sub