Summe der umliegenden Excel-Zellen per VBA-Makro errechnen

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

Um die Summe der Zellen zu bestimmen, die sich um die aktuelle Zelle herum befinden, können Sie ein Makro einsetzen

Excel errechnet die Summe und zeigt das Ergebnis in einem Fenster an

Excel errechnet die Summe und zeigt das Ergebnis in einem Fenster an

Sie möchten die Summe aller Zellinhalte bestimmen, die sich um die zurzeit aktive Zelle herum befinden? Schauen Sie sich die folgende Abbildung an:

Rund um die aktuelle Zelle herum befinden sich weitere Zellen

Um die aktive Zelle F13 herum befindet sich der Zellbereich D7:G18. Ein Makro soll diesen Zellbereich automatisch bestimmen und die Summe der Zellen anzeigen. Setzen Sie den folgenden Programmcode ein:

Sub BestimmeUmliegendeSumme()
Dim Bereich As Range
Dim Summe As Double
Set Bereich = ActiveCell.CurrentRegion
Summe = Application.WorksheetFunction.Sum(Bereich)
MsgBox "Die Summe der Zellen im Bereich " _
 & Bereich.AddressLocal(False, False) & " beträgt: " _
 & vbLf & vbLf & Summe
End Sub

Das Makro zeigt das Ergebnis in einem Fenster an. Die folgende Abbildung stellt dieses Ergebnis dar:

 

Excel errechnet die Summe und zeigt das Ergebnis in einem Fenster an

Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11, um den VBA-Editor aufzurufen. Wählen Sie im VBA-Editor das Kommando EINFÜGEN - MODUL und geben Sie das Makro ein. Den VBA-Editor können Sie über das Kommando DATEI - SCHLIEßEN UND ZURÜCK ZU MICROSOFT EXCEL beenden.

Zum Starten des Makros drücken Sie in Excel die Tastenkombination ALT F8. Die beiden Tastenkombinationen funktionieren in allen Excel-Versionen.

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"