Variablen, Schleifen & If-Abfragen: Die Basis jeder VBA-Automatisierung

Ohne Variablen, Schleifen und If-Abfragen wäre VBA nicht mehr als eine Aneinanderreihung starrer Befehle. Diese drei Bausteine bilden das Fundament jeder Automatisierung. In diesem Artikel lernen Sie anhand praktischer Beispiele, wie Sie sie effektiv einsetzen – von einfachen bis hin zu komplexeren Szenarien.

---

1) Variablen – Werte speichern und wiederverwenden

Variablen sind Speicherplätze für Daten. Sie machen Ihren Code flexibel und wiederverwendbar.

Beispiel:

Sub VariablenDemo()
    Dim kundenName As String
    kundenName = "Müller"
    MsgBox "Willkommen, " & kundenName
End Sub

Typen für mehr Sicherheit und Performance

• String – Text
• Long – Ganze Zahlen
• Double – Dezimalzahlen
• Boolean – Wahr/Falsch
• Date – Datum

❌ Fehlerhafte Praxis

Dim wert
wert = "Text"
wert = 10

✅ Bessere Praxis

Dim wert As Long
wert = 10

---

2) Schleifen – Wiederholungen effizient umsetzen

Schleifen sparen Zeit und Codezeilen, indem sie Abläufe automatisch wiederholen.

For-Schleife

Sub ForSchleife()
    Dim i As Long
    For i = 1 To 5
        Cells(i, 1).Value = "Zeile " & i
    Next i
End Sub

For Each-Schleife

Ideal, um Objekte wie Zellen oder Blätter durchzugehen.

Sub ForEachDemo()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Debug.Print ws.Name
    Next ws
End Sub

Do While-Schleife

Sub DoWhileDemo()
    Dim i As Long
    i = 1
    Do While Cells(i, 1).Value <> ""
        Cells(i, 2).Value = "Gelesen"
        i = i + 1
    Loop
End Sub

---

3) If-Abfragen – Entscheidungen treffen

Mit If-Bedingungen reagieren Sie dynamisch auf verschiedene Situationen.

Sub IfDemo()
    Dim punktzahl As Long
    punktzahl = 75

    If punktzahl >= 50 Then
        MsgBox "Bestanden"
    Else
        MsgBox "Nicht bestanden"
    End If
End Sub

Mehrstufige Bedingungen

If punktzahl >= 90 Then
    MsgBox "Sehr gut"
ElseIf punktzahl >= 75 Then
    MsgBox "Gut"
ElseIf punktzahl >= 50 Then
    MsgBox "Ausreichend"
Else
    MsgBox "Nicht bestanden"
End If

---

Praxisfall: Automatische Prüfung einer Kundenliste

Stellen Sie sich vor, Sie haben eine Liste mit Kunden und wollen prüfen, ob eine E-Mail-Adresse vorhanden ist. Fehlt diese, soll ein Hinweis erscheinen.

✅ Lösung:

Sub KundenlistePruefen()
    Dim i As Long
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
        If Cells(i, 2).Value = "" Then
            Cells(i, 3).Value = "E-Mail fehlt!"
        End If
    Next i
End Sub

Ergebnis: Kunden ohne E-Mail-Adresse werden automatisch markiert – eine echte Hilfe im Arbeitsalltag.

---

Fazit

Variablen, Schleifen und If-Abfragen sind die Grundpfeiler von VBA. Wer sie beherrscht, kann schon einfache, aber mächtige Automatisierungen umsetzen – von Datenprüfungen bis hin zu komplexeren Logiken.