EXCEL - Wie baue ich eine Wenn/Dann-Schleife auf?
Inhaltsverzeichnis
Die Fragestellung
Du möchtest wissen, wie du eine Wenn/Dann-Schleife in VBA aufbauen kannst.
Erläuterung des Problems {#erläuterung-des-problems}
In VBA gibt es keine direkte "Wenn/Dann-Schleife". Stattdessen kombinierst du eine If-Anweisung mit einer Schleife wie For
, While
oder Do
um bedingte Logik innerhalb der Schleife zu implementieren.
Lösung des Problems {#lösung-des-problems}
Hier ist ein Beispiel, wie du eine If
-Anweisung innerhalb einer Do While
-Schleife verwenden kannst:
Sub IfThenLoopExample()
Dim i As Integer
i = 1
Do While i <= 10 ' Schleife läuft, solange i kleiner oder gleich 10 ist
If i Mod 2 = 0 Then ' Wenn i gerade ist
Debug.Print i & " ist eine gerade Zahl."
Else ' Wenn i ungerade ist
Debug.Print i & " ist eine ungerade Zahl."
End If
i = i + 1 ' Erhöhe i um 1 bei jedem Durchlauf
Loop
End Sub
In diesem Beispiel wird die Variable i
von 1 bis 10 hochgezählt. Bei jedem Schleifendurchlauf prüft die If
-Anweisung, ob i
eine gerade Zahl ist (d.h., i
geteilt durch 2 hat keinen Rest) und gibt entsprechend eine Nachricht im Immediate-Fenster aus.
Anwendungsbeispiele aus der Praxis
- Datenfilterung: Durchlaufen eines Datensatzes und Anwenden von Bedingungen, um bestimmte Daten zu filtern oder zu bearbeiten.
- Benutzereingaben validieren: Überprüfen von Benutzereingaben in einer Schleife, bis gültige Daten eingegeben wurden.
Tipps
- Verwende
Exit Do
oder Exit For
, um eine Schleife vorzeitig zu beenden, wenn eine bestimmte Bedingung erfüllt ist.
- Achte darauf, dass die Schleife eine Bedingung hat, die irgendwann
False
wird, um eine Endlosschleife zu vermeiden.
Verwandte Themenbereiche
- Schleifen in VBA
- Bedingte Anweisungen
- Programmflusskontrolle
Zusammenfassung
Eine "Wenn/Dann-Schleife" wird in VBA durch die Kombination einer If
-Anweisung mit einer Schleifenstruktur wie For
, While
oder Do
erstellt. Dies ermöglicht es dir, bedingte Logik auf wiederholte Weise anzuwenden, was in vielen Programmieraufgaben nützlich ist.