- Wer aufhört besser zu werden hat aufgehört gut zu sein ;)
If Then Else in Excel VBA
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.
|
1 2 3 4 5 6 7 |
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.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
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.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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 |