Ergebnis Zwischenzeilen in Pivot ausblenden
22.03.2007 21:43:41
Martin
Hallo,
hatte dieses Problem vor einiger Zeit schoneinmal gepostet, leider kein Eregbnis. Es lässt mir aber keine Ruhe: Wenn man in einem Pivot mehr als eine Spalten ganz links hinzufügt, bildet Excel immer "Ergebnis"-Zwischenzeilen - auch wenn man unter Eigenschaften keinen Haken kein Ergebniszeilen setzt!
Beispiel ist hier: https://www.herber.de/bbs/user/41304.xls
Längere Suche ergab nur den VBA Code unten, der das ausschalten, funktioniert, aber umständlich ... das muss doch einfacher gehen, bloss wie? ich glaube in E. 2007 ist es nur ein Klick, wie geht es schnell in E 2003?
Sub NoSubtotals()
'turns off subtotals in pivot table
'.PivotFields could be changed to
'.RowFields or .ColumnFields
Dim pt As PivotTable
Dim pf As PivotField
On Error Resume Next
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.PivotFields
'First, set index 1 (Automatic) to True,
'so all other values are set to False
pf.Subtotals(1) = True
pf.Subtotals(1) = False
Next pf
Next pt
End Sub
Jeder Tipp hilft ...
Martin