If Then-Anweisung | Sonst-Anweisung
Verwenden Sie die Wenn Dann-Anweisung In Excel VBA um Codezeilen auszuführen, wenn eine bestimmte Bedingung erfüllt ist.
Wenn dann Aussage
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
Dim Score As Integer, Ergebnis As String
Punktzahl = Range("A1").Wert
Wenn Punktzahl >= 60 Dann Ergebnis = "pass"
Range("B1").Wert = Ergebnis
Erläuterung: Wenn die Punktzahl größer oder gleich 60 ist, gibt Excel VBA bestanden zurück.
Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:
Hinweis: Wenn die Punktzahl weniger als 60 beträgt, platziert Excel VBA den Wert des leeren Variablenergebnisses in Zelle B1.
Sonst-Anweisung
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
Dim Score As Integer, Ergebnis As String
Punktzahl = Range("A1").Wert
Wenn Punktzahl >= 60 Dann
Ergebnis = "passieren"
Anders
Ergebnis = "fehlgeschlagen"
Ende Wenn
Range("B1").Wert = Ergebnis
Erläuterung: Wenn die Punktzahl größer oder gleich 60 ist, gibt Excel VBA erfolgreich zurück, andernfalls gibt Excel VBA fehl.
Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:
Hinweis: Nur wenn Sie eine Codezeile hinter Then haben und keine Else-Anweisung, ist es erlaubt, eine Codezeile direkt nach Then zu platzieren und End If wegzulassen (erstes Beispiel). Andernfalls beginnen Sie eine neue Zeile nach den Wörtern Then und Else und enden Sie mit End If (zweites Beispiel).