Vba: so berechnen sie den durchschnittswert des bereichs

Sie können die folgende grundlegende Syntax verwenden, um den Durchschnittswert eines Bereichs in Excel mit VBA zu berechnen:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

In diesem speziellen Beispiel wird der Durchschnittswert im Bereich B2:B12 berechnet und das Ergebnis der Zelle E2 zugewiesen.

Wenn Sie stattdessen den Durchschnittswert in einem Meldungsfeld anzeigen möchten, können Sie die folgende Syntax verwenden:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
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 den Durchschnitt des Bereichs mit VBA und zeigen Sie die Ergebnisse in der Zelle an

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

Dazu können wir das folgende Makro erstellen:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

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

Beachten Sie, dass Zelle E2 den Wert 21.27273 enthält.

Dies sagt uns, dass der Durchschnittswert in der Punktespalte 21,27273 beträgt.

Beispiel 2: Berechnen Sie den Durchschnitt des Bereichs mit VBA und zeigen Sie die Ergebnisse im Meldungsfeld an

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

Dazu können wir das folgende Makro erstellen:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

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

Das Meldungsfeld teilt uns mit, dass der Durchschnittswert im Bereich B2:B12 21,27273 beträgt.

Beachten Sie, dass wir in diesem Beispiel den Durchschnittswert im Bereich B2:B12 berechnet haben.

Wenn Sie jedoch stattdessen den Durchschnittswert in einer gesamten Spalte berechnen möchten, können Sie stattdessen B:B eingeben.

Dadurch wird der Durchschnittswert 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 schreiben Sie die Funktionen AVERAGEIF und AVERAGEIFS
VBA: So schreiben Sie SUMIF- und SUMIFS-Funktionen
VBA: So schreiben Sie COUNTIF- und COUNTIFS-Funktionen