Vba: so fügen sie werte in einem bereich hinzu

Sie können die folgende grundlegende Syntax verwenden, um die Summe der Werte in einem Bereich mithilfe von VBA zu berechnen:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

In diesem speziellen Beispiel wird die Summe der Werte im Bereich B2:B11 berechnet und das Ergebnis der Zelle D2 zugewiesen.

Wenn Sie stattdessen die Summe der Werte in einem Meldungsfeld anzeigen möchten, können Sie die folgende Syntax verwenden:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

Die folgenden Beispiele zeigen, wie jede dieser Methoden in der Praxis mit dem folgenden Datensatz in Excel verwendet wird, der Informationen über verschiedene Basketballspieler enthält:

Beispiel 1: Berechnen Sie die Bereichssumme mit VBA und zeigen Sie die Ergebnisse in der Zelle an

Angenommen, wir möchten die Summe der Werte in der Punktespalte berechnen und die Ergebnisse in einer bestimmten Zelle anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

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

Beachten Sie, dass Zelle D2 den Wert 245 enthält.

Dies sagt uns, dass die Summe der Werte in der Punktespalte 245 beträgt.

Beispiel 2: Berechnen Sie die Bereichssumme mit VBA und zeigen Sie die Ergebnisse im Meldungsfeld an

Angenommen, wir möchten stattdessen die Summe der Werte in der Punktespalte berechnen und die Ergebnisse in einem Meldungsfeld anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

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

Das Meldungsfeld teilt uns mit, dass die Summe der Werte im Bereich B2:B11 245 beträgt.

Beachten Sie, dass wir in diesem Beispiel die Summe der Werte im Bereich B2:B11 berechnet haben.

Wenn Sie jedoch stattdessen die Summe der Werte in einer gesamten Spalte berechnen möchten, können Sie stattdessen B:B eingeben.

Dadurch wird die Summe der Werte für jede Zelle in Spalte B berechnet.

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So berechnen Sie den Durchschnittswert des Bereichs
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So schreiben Sie SUMIF- und SUMIFS-Funktionen