So verwenden sie die zwischensummenfunktion in vba (mit beispielen)

Sie können die ZWISCHENSUMME- Funktion in Excel verwenden, um Gesamtstatistiken nur für sichtbare Zellen in einem Blatt zu berechnen.

Sie können die folgende grundlegende Syntax in VBA verwenden, um die ZWISCHENSUMME-Funktion zu verwenden:

 Sub FindSubtotal()
Range(" A16 ") = WorksheetFunction.Subtotal(9, Range(" B2:B11 "))
End Sub

In diesem speziellen Beispiel wird die Summe der Werte in den sichtbaren Zellen im Bereich B2:B11 berechnet und das Ergebnis in Zelle A16 angezeigt.

Beachten Sie, dass das erste Argument der Subtotal- Methode die zu verwendende Aggregationsmethode angibt, wobei Folgendes gilt:

• 1 : MITTEL
• 2 : KONTO
• 3 : KONTO
• 4 : MAXIMAL
• 5 : MINIMUM
• 6 : PRODUKT
• 7 : STABW
• 8 : STABW
• 9 : SUMME
• 10 : VAR
• 11 : VARP

Das folgende Beispiel zeigt, wie Sie die Subtotal- Methode in VBA in der Praxis verwenden.

Beispiel: So verwenden Sie eine Zwischensumme in VBA

Nehmen wir an, wir haben den folgenden Datensatz in Excel, der Informationen über verschiedene Basketballspieler enthält:

Angenommen, wir wenden einen Filter an, um nur Zeilen anzuzeigen, in denen Team gleich A oder C ist:

Wir können das folgende Makro erstellen, um die Summe der sichtbaren Zellen in der Punktespalte zu berechnen und die Ergebnisse in Zelle A16 anzuzeigen:

 Sub FindSubtotal()
Range(" A16 ") = WorksheetFunction.Subtotal(9, Range(" B2:B11 "))
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass Zelle A16 den Wert 168 enthält.

Dies sagt uns, dass die Summe der in der Punktespalte sichtbaren Zellen 168 beträgt.

Wir können auch den Wert des ersten Arguments der Zwischensummenmethode ändern, um eine andere Metrik zu berechnen.

Beispielsweise können wir den Wert 1 verwenden, um stattdessen den Durchschnitt der sichtbaren Zellen in der Punktespalte zu berechnen:

 Sub FindSubtotal()
Range(" A16 ") = WorksheetFunction.Subtotal(1, Range(" B2:B11 "))
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass Zelle A16 den Wert 24 enthält.

Dies sagt uns, dass der Durchschnitt der in der Punktespalte sichtbaren Zellen 24 beträgt.

Hinweis : Die vollständige Dokumentation zur VBA- Zwischensummenmethode finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So fügen Sie Werte in einem Bereich hinzu
VBA: So berechnen Sie den Durchschnittswert des Bereichs
VBA: So zählen Sie die Anzahl der Zeilen im Bereich