Excel VBA Kurs – Teil 02: Zellen auslesen, addieren & Ergebnis schreiben

Option Explicit

Erzwingt, dass jede Variable vorher deklariert werden muss. Dadurch werden Tippfehler in Variablennamen nicht stillschweigend akzeptiert, sondern sofort als Fehler erkannt.

Public Sub AddiereZweiZellen()

Start einer Sub-Prozedur (Makro) mit dem Namen AddiereZweiZellen. Public bedeutet, dass die Prozedur von außen aufrufbar ist – z. B. über die Makroliste oder über einen Button, dem dieses Makro zugewiesen wurde.

Dim a As Double

Legt die Variable a an und definiert sie als Datentyp Double. Double ist eine Zahl mit Nachkommastellen und eignet sich gut für Rechenoperationen.

Dim b As Double

Legt die Variable b ebenfalls als Datentyp Double an.

a = Range("A1").Value

Liest den Wert aus Zelle A1 des aktuell aktiven Arbeitsblatts aus und speichert ihn in der Variablen a.

b = Range("B1").Value

Liest den Wert aus Zelle B1 des aktuell aktiven Arbeitsblatts aus und speichert ihn in der Variablen b.

Range("C1").Value = a + b

Addiert die beiden Variablen a und b und schreibt das Ergebnis als Wert in die Zelle C1 des aktuell aktiven Arbeitsblatts.

End Sub

Beendet die Sub-Prozedur. Alles zwischen Sub ... und End Sub gehört zu diesem Makro.

Public Sub AddiereZweiZellen_Sicher()

Start einer zweiten Sub-Prozedur mit dem Namen AddiereZweiZellen_Sicher. Diese Variante enthält zusätzlich eine Eingabeprüfung und reagiert mit einer Meldung, wenn in den Zellen keine Zahlen stehen.

Dim v1 As Variant, v2 As Variant

Legt zwei Variablen v1 und v2 als Datentyp Variant an. Variant kann verschiedene Arten von Werten aufnehmen (z. B. Zahl, Text, leer). Das ist praktisch, weil Zellwerte nicht immer automatisch als Zahl vorliegen.

Dim a As Double, b As Double

Legt die Variablen a und b als Double an. In diese Variablen werden später die geprüften und umgewandelten Zahlenwerte gespeichert, damit zuverlässig gerechnet werden kann.

v1 = Range("A1").Value

Liest den Wert aus A1 und speichert ihn in v1 – unabhängig davon, ob es sich um Zahl, Text oder leeren Inhalt handelt.

v2 = Range("B1").Value

Liest den Wert aus B1 und speichert ihn in v2.

If Not IsNumeric(v1) Or Not IsNumeric(v2) Then

Prüft, ob v1 und v2 numerische Werte sind.

• IsNumeric(v1) liefert True, wenn v1 als Zahl interpretiert werden kann.

• Not kehrt das Ergebnis um.

• Or bedeutet: Wenn mindestens eine der beiden Bedingungen zutrifft (also mindestens einer der Werte keine Zahl ist), wird der folgende Block ausgeführt.

MsgBox "Bitte in A1 und B1 Zahlen eingeben.", vbExclamation, "Ungültige Eingabe"

Zeigt eine Meldung an den Benutzer an. Die Parameter bedeuten:

• Text: „Bitte in A1 und B1 Zahlen eingeben.“ (Hinweistext im Dialog)

• vbExclamation: Warnsymbol (gelbes Ausrufezeichen) – signalisiert „Achtung“

• "Ungültige Eingabe": Titel des Dialogfensters

Exit Sub

Beendet die Prozedur sofort an dieser Stelle. Dadurch wird verhindert, dass der Code mit ungültigen Eingaben weiterrechnet und ggf. einen Fehler auslöst.

End If

Beendet den If ... Then-Block. Ab hier läuft das Makro nur weiter, wenn beide Werte numerisch sind.

a = CDbl(v1)

Wandelt den Inhalt von v1 explizit in den Datentyp Double um (CDbl = Convert to Double) und speichert das Ergebnis in a. Das sorgt für eine eindeutige Zahl, mit der zuverlässig gerechnet werden kann.

b = CDbl(v2)

Wandelt den Inhalt von v2 explizit in Double um und speichert das Ergebnis in b.

Range("C1").Value = a + b

Addiert die beiden Double-Werte a und b und schreibt das Ergebnis in C1.

End Sub

Beendet die Sub-Prozedur AddiereZweiZellen_Sicher. Alles zwischen Public Sub ... und End Sub gehört zu diesem Makro.