Mittelwert bilden und Ergebnis per Excel-Makro eintragen

30. März 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

Um den Mittelwert von Zahlen über ein VBA-Makro zu berechnen, können Sie die entsprechende Funktion direkt im VBA-Makro aufrufen

Der Mittelwert der Zahlen aus Spalte B in Zelle A1 wird per VBA berechnet

Der Mittelwert der Zahlen aus Spalte B in Zelle A1 wird per VBA berechnet

Berechnungen über Tabellenfunktionen legen Sie normalerweise über die Tastatur an. Alternativ können Sie auch den Formelassistenten verwenden. Was tun Sie aber, wenn Sie das Ergebnis einer Tabellenfunktion in einem Excel-Makro benötigen, die Formel aber nicht in eine Zelle eintragen möchten?

Sie können die Excel-Tabellenfunktionen auch direkt als Kommandos in Ihren Makros verwenden. Stellen Sie sich vor, Sie möchten den Mittelwert aller Zahlen aus einer Spalte in eine Zelle eintragen. Verwenden Sie das folgende Makro:

Sub MittelwertAusSpalte()
ActiveCell.Value = WorksheetFunction.Average(Columns(2))
End Sub

Falls Sie das Ergebnis der Funktion in eine feste Zelle (beispielsweise Zelle A1) schreiben möchten, ersetzen Sie den Ausdruck "ActiveCell". Mit dem folgenden Kommando schreiben Sie das Ergebnis beispielsweise in Zelle A1:

Range("A1").Value = WorksheetFunction.Average(Columns(2))

Welche Spalte addiert werden soll, definieren Sie durch den Wert hinter "Columns". Die Spalten werden von links nach rechts durchnummeriert, Spalte A besitzt die Nummer 1.

Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann, wenn Sie die Funktion in einer Tabelle starten:

Der Mittelwert der Zahlen aus Spalte B in Zelle A1 wird per VBA berechnet

Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11, um den VBA-Editor aufzurufen. Fügen Sie hier über das Kommando EINFÜGEN - MODUL ein leeres Modulblatt ein. Um das Makro direkt aus Excel zu starten, setzen Sie die Tastenkombination ALT F8 ein.

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"