If Then Else in Excel VBA
In diesem Tutorial zeige ich Euch wie Ihr die If then else Anweisung ausführen könnt. Das bedeutet soviel wie Wenn Dann Ansonsten. Damit könnt Ihr sogenannte Weichen in Eurem Programmcode schreiben. In der If Then Else Anweisung muss eine von Euch festgelegte Bedingung erfüllt werden damit der nachfolgende Code ausgeführt werden kann. Sollte er nicht erfüllt werden, wird die Bedingung einfach übersprungen. Mit Else If könnt Ihr alternative Bedingungen hinzufügen. Der Case Bereich, falls Ihr den verwendet, wird abgearbeitet wenn keine Bedingung zuvor erfüllt wurde.
Das Startvideo der VBA Tutorial Serie auf YouTube findet Ihr hier
Die Playlist meiner VBA Tutorial Serie auf YouTube findet Ihr hier
Achtung:
Benutzt zum Üben eine separate Tabelle für Testzwecke oder eine Kopie des Originals damit Euch keine Daten verloren gehen.
Video zu diesem Tutorial:
Beispielscript mit der If Then Else Anweisung in Excel VBA
Im nachfolgenden sehr einfachen Script zeige ich Euch wie Ihr die If Then Else Anweisung innerhalb einer Zeile ausführen könnt.
Nur wenn in Zelle A1 der Wert 1 eingetragen wurde würde nach ausführen des Codes in Zelle B1 die ausgeschriebene Eins erscheinen.
Sub IfThenElseTutorial1()
If Range("A1").Value = 1 Then Range("B1").Value = "Eins"
End Sub
Beispielscript mit der If Then Else ElseIf
Im zweiten Beispiel verwende ich außer der normalen If Anweisung mit nur einer Bedingung auch die Möglichkeit alternative Bedingungen durch ElseIf.
Wenn in Zelle A1 eine 1 steht wird der erste If Block ausgeführt und es erscheint die ausgeschriebene Eins in Zelle B1. Sollte das nicht der Fall sein wird überprüft ob eines der ElseIf Bedinungen erfüllt wird. Wichtig ist zu verstehen dass in diesem Beispiel nur ein einziger Block ausgeführt wird. Sollten alle Bedingungen nicht zutreffen wird zumindest der Else Block ausgeführt.
Sub IfThenElseTutorial2()
If Range("A1").Value = 1 Then
Range("B1").Value = "Eins"
ElseIf Range("A1").Value = 2 Then
Range("B1").Value = "Zwei"
ElseIf Range("A1").Value = 3 Then
Range("B1").Value = "Drei"
Else
Range("B1").Value = "Nicht Eins, Zwei, Drei"
End If
End Sub
Beispielscript mit verschachteltem If Then Else Block
In diesem Beispiel habe ich noch zusätzlich eine If Anweisung in einen ElseIf Block eingebaut, um Euch zu zeigen, dass Ihr so etwas auch verschachteln könnt. Natürlich lassen sich als Bedingung auch weitere Operatoren benutzen.
Sub IfThenElseTutorial3()
If Range("A1").Value < 10 Then
Range("B1").Value = "Kleiner Zehn"
ElseIf Range("A1").Value < 100 Then
Range("B1").Value = "Kleiner Hundert"
If Range("A1").Value = 50 Then
Range("B2").Value = "Genau Fünfzig"
End If
ElseIf Range("A1").Value < 1000 Then
Range("B1").Value = "Kleiner Tausend"
Else
Range("B1").Value = "Größer gleich Tausend"
End If
End Sub