Bedingte Anweisung und Verzweigung
Abhängig vom Wert eines Ausdrucks erfolgt eine bedingte Ausführung einer Gruppe von Anweisungen.
'If...Then in einer Zeile
If Weekday(Date) = 1 Then MsgBox "Heute ist Sonntag"
'If...Then...Else
If Weekday(Date) = 1 Then
MsgBox "Heute ist Sonntag"
Else
MsgBox "Heute ist " & Format(Weekday(Date), "dddd")
End If
'If...Then...ElseIf...Else
If Weekday(Date) = 1 Then
MsgBox "Heute ist Sonntag"
ElseIf Weekday(Date) = 7 Then
MsgBox "Heute ist Samstag"
Else
MsgBox "Heute ist " & Format(Weekday(Date), "dddd")
End If