Shairal entwickelt PivotTables täglich unter Verwendung verschiedener Datenquellen wie Excel-Listen, Zugriffstabellen und OLAP-Daten. Eines der irritierendsten Dinge, mit denen er sich befasst, ist die Unterdrückung der automatischen Zwischensummenfunktion für jedes Feld nacheinander. Dies kann abhängig von der Anzahl der von ihm verwendeten Felder zeitaufwändig sein. Shairal fragte sich, ob es einfacher sein könnte, ein Makro zu verwenden, um die Zwischensummen für alle Felder gleichzeitig zu unterdrücken.

Die Antwort ist, dass es einfacher wäre, ein Makro zu verwenden. (Dafür sind Makros gedacht – um sich um die mühsamen Dinge zu kümmern, die Sie müde werden.) Anstatt das Rad neu zu erfinden, ist es jedoch eine gute Lösung, den folgenden Code zu berücksichtigen, der von der Website von Microsoft MVP Debra Daglisesh angepasst wurde:

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

Zeigen Sie einfach die PivotTable an, die Sie beeinflussen möchten, und führen Sie dann das Makro aus.

Die Zwischensummen für alle Felder in der PivotTable werden sofort unterdrückt. Das Original für diesen Code finden Sie hier bei Debra:

http://www.contextures.com/xlPivot03.html#Subtotals

Die Site enthält auch einige andere gute Informationen für die Arbeit mit PivotTables.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3103) gilt für Microsoft Excel 97, 2000, 2002 und 2003.