Excel VBA: Zahlen im Bereich sicher summieren (Teil 3)

Zahlen in einem Bereich sicher summieren

In diesem Tutorial (Teil 3 der Excel-VBA-Serie) bauen wir Schritt für Schritt ein Makro, das den Zellbereich A1:A10 durchläuft und alle enthaltenen Zahlen zuverlässig addiert. Der Fokus liegt darauf, den Code nachvollziehbar und robust zu halten: Jede Zelle wird geprüft, nur numerische Werte werden berücksichtigt und leere Zellen bleiben außen vor. Zusätzlich kann das Makro zählen, wie viele Zellen wegen nicht-numerischer Inhalte ignoriert wurden, und das Ergebnis anschließend in B1 ausgeben. Damit ist dieses Tutorial der ideale Einstieg in Schleifen in VBA – ohne unnötige Komplexität.

Voraussetzung: Bitte zuerst Teil 1 anschauen (Entwicklertools aktivieren, Modul anlegen, Option Explicit). Den Link findest du hier:

Excel VBA Kurs – Teil 01: Start mit Hello World – Modul, Makro, Option Explicit

⬇️ Den vollständigen Code kannst du weiter unten über den Downloadlink herunterladen.

Achtung:

Benutzt zum Üben eine separate Tabelle für Testzwecke oder eine Kopie des Originals damit Euch keine Daten verloren gehen.

Fertiger Aufbau

Summieren von Zelle A1 bis A10 und MsgBox

Wenn Ihr das Makro ausführt, werden die Zellen von A1 bis A10 summiert, wenn es sich um Zahlen handelt. Außerdem wird Euch angezeigt, wenn Zellen ignoriert werden. Komplett leere Einträge werden ignoriert.

Code Zeile für Zeile erklärt

Erzwingt, dass jede Variable vorher mit Dim deklariert werden muss, damit Tippfehler in Variablennamen nicht unbemerkt bleiben.

Startet ein öffentliches Makro mit dem Namen SummeBereich_Sicher.

Deklariert c als Objektvariable vom Typ Range, die später nacheinander einzelne Zellen referenzieren wird.

Deklariert summe als Zahl mit Kommazahlen (Double), in der die laufende Summe gespeichert wird.

Deklariert ignoriert als Ganzzahl (Long), die zählt, wie viele nicht-leere, aber nicht-numerische Zellen übersprungen wurden.

Setzt den Startwert der Summe auf 0.

Setzt den Zähler für ignorierte Zellen auf 0.

Geht Zelle für Zelle durch den Bereich A1 bis A10; c referenziert dabei in jedem Durchlauf eine andere Zelle aus diesem Bereich.

Prüft, ob der Zellinhalt eine Zahl ist und die Zelle nicht leer ist.

Wandelt den Zellinhalt sicher in Double um und addiert ihn zur laufenden Summe.

Trifft zu, wenn die Zelle nicht leer ist, aber keine Zahl enthält.

Erhöht den Zähler für ignorierte Zellen um 1.

Beendet den If-Block.

Springt zur nächsten Zelle im Bereich und wiederholt die Schleife, bis alle Zellen geprüft wurden.

Schreibt das Ergebnis der Summe in die Zelle B1.

Prüft, ob mindestens eine Zelle ignoriert wurde.

Zeigt eine Info-Meldung an, wie viele nicht-numerische (aber nicht-leere) Zellen übersprungen wurden.

Beendet die If-Abfrage.

Beendet das Makro.

Download Dateien:

Alle Inhalte und Codebeispiele auf dieser Seite dienen ausschließlich zu Lern- und Demonstrationszwecken. Die Anwendung erfolgt auf eigenes Risiko. Ich übernehme keine Gewähr für Richtigkeit, Vollständigkeit oder Eignung für einen bestimmten Zweck und keine Haftung für direkte oder indirekte Schäden (z. B. Datenverlust), die durch das Ausführen, Verwenden oder Anpassen des Codes entstehen. Bitte erstelle vorab ein Backup und teste den Code zunächst in einer separaten Testdatei, bevor du ihn in produktiven Arbeitsmappen einsetzt.

Download Zellenbereich-auslesen-und-summieren Excel Datei mit Makro

Download VBA Code Zellenbereich-auslesen-und-summieren-als-Text-zum-Kopieren

Excel VBA Kurs – Teil 03: Zahlen in einem Bereich sicher summieren

Schreibe einen Kommentar Antwort abbrechen