Microsoft Office Tutorials and References
In Depth Information
3.4.1 Einzeiliges If … Then … Else
[Else
AnweisungenX ]
End If
Das Programm verzweigt zu den Anweisungen hinter der ersten zutref-
fenden Bedingung ( ElseIf ). Falls keine Bedingung zutrifft, werden die
Anweisungen hinter dem Else ausgeführt, sofern es diesen Else -Zweig
gibt. Andernfalls wird keine Anweisung durchgeführt. Ein If - Then - Else -
Block endet immer mit einem End If .
If, ElseIf
In der folgenden Prozedur werden zwei verschiedene Fälle geprüft. Trifft
keiner dieser Fälle zu, so wird der Else -Zweig ausgeführt:
Else
Sub BlockIf()
ThisWorkbook.Worksheets("Tabelle1").Activate
If Range("C1").Value > 100 Then
Range("C1").Font.Size = 14
Range("C1").Font.Italic = True
Range("C1").Font.Underline = True
ElseIf Range("C1").Value < 10 Then
Range("C1").Font.Size = 11
Range("C1").Font.Italic = False
Range("C1").Font.Underline = False
Else
Range("C1").Font.Size = 17
Range("C1").Font.Italic = False
Range("C1").Font.Underline = True
End If
End Sub
Das Ergebnis:
Abbildung 3.9
Der dritte Fall trifft zu.
Zur Erläuterung:
Je nach Wert der Zelle werden die Schrifteigenschaften Größe, kursiv
und unterstrichen eingestellt.
Im vorliegenden Fall ist der Wert weder größer als 100 noch kleiner
als 10, also trifft der dritte Fall ( Else ) zu.
Search JabSto ::




Custom Search