Syntax einzeilige Version:

If <Bedingung> Then <Anweisung> [Else <Anweisung>]

Beispiel:

Sub Main()

Dim a As Integer

a = Val(InputBox("Zahl eingeben"))

If a > 0 Then MsgBox a * 5 Else MsgBox "Fehler"

End Sub

Syntax mehrzeilige Version:

If <Bedingung> Then

<Anweisung>

Else

<Anweisung>

End If

oder

If <Bedingung> Then

<Anweisung>

Elseif

<Anweisung>

Else

<Anweisung>

End If

Syntax:

Select Case

Case [Is] <Möglichkeit 1>

<Anweisung>

Case [Is] <Möglichkeit 2>

<Anweisung>

Case Else

<Anweisung>

End Select

Beispiel:

Zahl = Val(InputBox("Bitte eine Zahl eingeben"))

Select Case Zahl

Case 1

MsgBox "Zahl 1"

Case 2

MsgBox "Zahl 2"

Case Else

MsgBox "Zahl >= 3 oder <= 0"

End Select

Syntax:

IIf <Bedingung>, Wahrteil, Falschteil

Beispiel:

Sub Main()

Dim Zahl As Integer 'Variable für unseren Zahl
Dim ausgabe As String 'Variable für die Ausgabe
'Zahl wird eingelesen
Zahl = Val(InputBox("Geben Sie eine Zahl ein"))

ausgabe = IIf(Zahl = 1, "Zahl war die 1", "Zahl war nicht die 1")

MsgBox ausgabe

End Sub

Syntax:

For >Variable> = <Startwert> To <Endwert> [Step <Schritweise>]

Beispiel:

For i = 1 To 10 'Es wird 10 mal Hallo ausgegeben

MsgBox i & ". Hallo"

Next i

Syntax (Kopgesteuerte Do-Loop Schleife):

Do While <Bedingung> oder Until <Bedingung>

<Anweisung>

Loop

Beispiel:

Sub Main()

Dim Zahl As Integer 'Variable für unseren Zahl
Dim ausgabe As String 'Variable für die Ausgabe
Dim zaeler As Integer 'Variable für den Zähler

'Zahl wird eingelesen
Zahl = Val(InputBox("Geben Sie die Durchläufe der Schleife ein"))

Do While zaeler < Zahl

zaeler = zaeler + 1 'Zählervariable wird bei jedem Durchlauf um 1 erhöht
ausgabe = ausgabe & " " & zaeler

Loop

MsgBox ausgabe

End Sub

Syntax (Fußgesteuerte Do-Loop Schleife):

Do

<Anweisung>

Loop While <Bedingung> oder Until <Bedingung>

Ich habe an dieser Stelle weitere Beispielprogramme zum Thema Schleifen bereitgestellt.
Download