If-Anweisung

Die If-Anweisung gehört zu den Verweigungen. Sie steuert Abläufe dadurch, daß sie nur wirksam wird, wenn die die vorgegeben Bedingung wahr wird.

Sub if_then_anweisung()

 

For r = 1 To 15

    If r = 10 Then MsgBox "Zahl = 10"

    If r = 15 Then MsgBox "Schleifenende"

Next r

 

End Sub

Dieses kleine Programm durchläuft die For To Next-Schleife bis der Wert 10 erreicht ist, dann öffnet sich eine MessageBox mit der Mitteilung "Zahl = 10". Nachden man mit OK bestätigt hat, läuft die Schleife bis zum Ende (r = 15) und öffnet eine neue MsgBox mit der Meldung "Schleifenende".

Else-Anweisung

Mit der Else-Anweisung kann man, für den Fall, daß die erste Bedingung nicht zutrifft, eine weitere Möglichkeit festlegen. Damit wird dann die Anweisung zum genauen Gegenstück, der als Zellformel bekannten Wenn-Bedingung.

Diese Formel sieht dann so aus:

Option Explicit

Sub zahlenwerte()
Dim r As Integer
Dim z As Integer
' Kennzeichnet Tabellenwerte
z = Range("A1").End(xlDown).Row     ' Letzte Zelle ermitteln
For r = 1 To z                      ' Schleifenstart (läuft von Zeile 1 bis Tabellenende)
    If Cells(r, 1) < 10 Then        ' Wenn Wert < 10 ...
        Cells(r, 2) = "zu klein"    ' ... Meldung ausgeben
        Else: Cells(r, 2) = "OK"    ' Wenn Wert > 10 Meldung = OK
    End If                          ' Ende Anweisung
Next r                              ' Ende Schleife
End Sub                             ' Ende Makro