Range.Subtotal (Excel)

Erstellt Teilergebnisse für den Bereich (bzw. für die aktuelle Region, wenn der Bereich nur aus einer Zelle besteht).

Subtotal (GroupBy, Function, TotalList, Replace, PageBreaks, SummaryBelowData)

Worksheets("Sheet1").Activate 
Selection.Subtotal GroupBy:=1, Function:=xlSum, _ 
 TotalList:=Array(2, 3)

Arguments

Hier sind die benannte Argumente :

GroupBy (Long) - Das Feld, nach dem gruppiert werden soll, als ganzzahliger, bei 1 beginnender Versatz (Offset).

Function - XlConsolidationFunction

Dies sind mögliche Werte für XlConsolidationFunction

TotalList - Ein Array mit bei 1 beginnenden Feldversätzen. Diese geben die Felder an, denen die Zwischensummen hinzugefügt werden

Optional arguments

Die folgenden Argumente sind optional

Replace (Boolean) - Mit True werden bestehende Teilergebnisse ersetzt.

PageBreaks (Boolean) - Mit True wird nach jeder Gruppe ein Seitenumbruch eingefügt.

SummaryBelowData (XlSummaryRow) - Platziert die Zusammenfassungsdaten relativ zur Zwischensumme.

Mögliche Rückgabewerte sind xlSummaryAbove - Die Hauptzeile der Gliederung befindet sich über den Detailspalten, xlSummaryBelow - Die Hauptzeile der Gliederung befindet sich unter den Detailspalten.