| Bedingungen → ohne Beispiele | |
| Befehl / Beispiele | Beschreibung |
| If <Bedingung> Then <Anweisung> | If - Bedingung als 1-Zeilen Schreibweise |
|
If <Bedingung> Then <Anweisungen> ElseIf <Aweisungen> Else <Anweisungen> End If |
If - Bedingung als Block Schreibweise |
|
Beispiel 1: If-Anweisung als
1-Zeilen Schreibweise If Nummer = 12 Then MsgBox "Nummer 12" |
|
|
Beispiel 2: If Anweisung als
Blockanweisung mit der Else-Option. Nummer = 11 If Nummer = 12 Then MsgBox "Nummer 12" Else MsgBox "sonstige Nummer" End If |
|
|
Beispiel 3: If Anweisung als
Blockanweisung mit der ElseIf- und der Else-Option. Nummer = 16 If Nummer = 12 Then MsgBox "Nummer 12" ElseIf Nummer = 14 Then MsgBox "Nummer 14" Else MsgBox "sonstige Nummer" End If |
|
| <Variable>= IIf(<Bedingung>,<Dann-Wert>,<Sonst-Wert>) | IIf - Bedingung |
|
Bespiel: Dim A As Double Dim Wert As Double Wert = Cells(3, 2) ' Wert aus Zelle B3 des aktuellen Tabellenblattes lesen. A = IIf(Wert > 100, 3.4, 6.5) ' Falls Wert > 100 ist wird der A dem Wert 3,4 zugewiesen. ' Ist Wert < 100 bekommt die Variable A den Wert 6,5 |
|
|
Select Case <Variable> Case <Wert> <Anweisung> Case <Wert> <Anweisung> Case Else <Anweisung> End Select |
Case Select |
|
Beispiel: |
|
| <Variable>= Choose ( <Zahl>, <Wert>, ... ,<Wert>) | Choose |
|
Beispiel: Dim MonatZahl As Integer Dim MonatText As String MonatZahl = Cells(3, 3) MonatText = Choose(MonatZahl, "Jan", "Feb", "Mär", "Apr") ' Falls MonatsZahl = 3 bekommt ' MonatsText "Mär" zugewiesen. |
|
|
<Variable>= Switch(<Variable>= <Wert1>, <Wert2> _ <Variable>= <Wert3>, <Wert4> _ ... <Variable>= <Wertn-1>, <Wertn>) |
Switch |
|
Beispiel: |
|