VBA – Programmierung mit Excel Grundlagen

Kontrollstrukturen
oder
If A1 = 1 Then
...diese Anweisungen werden nur ausgeführt,
...wenn A1 = 1 ist
EndIf
If A1 = 1 Then
...diese Anweisungen werden nur ausgeführt,
...wenn A1 gleich 1 ist
Else
...diese Anweisungen werden nur ausgeführt,
...wenn A1 ungleich 1 ist
EndIf
Eine erweiterte Form dieser Blockanweisung hat die Syntax:
If Bedingung1 Then
... [Anweisungsblock1]
... [ElseIf Bedingung2 Then
Anweisungsblock2]] ...
.
[Else
[Anweisungsblock n]]
EndIf
Hier werden die Bedingungen hinter IF oder ELSEIF von oben beginnend solange geprüft
und eventuell der dazugehörige Anweisungsblock solange übersprungen, bis eine
Bedingung den Wert TRUE liefert. In solchen Fällen wird der entsprechende
Anweisungsblock ausgeführt und anschließend zur ersten Anweisung hinter ENDIF
gesprungen. Trifft keine Bedingung zu, werden die Anweisungen im ELSE - Zweig
ausgeführt und die Programmausführung hinter ENDIF fortgesetzt.
➨Treffen Bedingungen in mehreren ELSE - Zweigen zu, wird nur der Anweisungsblock
ausgeführt, der auf die erste zutreffende Bedingung folgt und anschließend wird der
Programmablauf hinter EndIf fortgesetzt.
Sub Vergleich ()
Dim Zahl As Integer
Zahl = InputBox("Geben Sie eine Zahl ein :")
If Zahl > 0 Then
MsgBox("Die Zahl ist positiv")
Else MsgBox(("Die Zahl ist nicht positiv oder Null")
End If
End Sub
Sub Vergleich2 ()
Dim Betrag As Integer, Wert As Integer
Dim Eingang
Betrag = 450
Eingang = False
Seite 39