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