VBA lernen - Excel 2007/2010 (4)

Alternativen (Entscheidungen)

Bisher noch keine Bewertungen für diesen Artikel.

Alternativen (Entscheidungen)

Auf dieser Seite

Diese Entscheidungsart lässt jeweils eine von zwei Möglichkeiten der Reaktionen zu, je nach dem, ob die Bedingung den Wert wahr oder falsch ergibt.

60491_bild06.jpg

Die Alternative ermöglicht zwei Möglichkeiten der Reaktion auf eine Bedingung.

Testen Sie die folgende Prozedur schrittweise. Sie finden sie in der Lösungsdatei Lösung Steueranweisungen und Felder.xlsm im Modul Auswahl.

Dim Stadt As String
Sub Zweifach_Auswahl()
Stadt = InputBox _
("Bitte einen Städtenamen eingeben!")
  If Stadt = "Berlin" Then
MsgBox "Deutschland ist ein Irrenhaus," & _
 "und hier ist die Zentrale."
  Else
MsgBox "Hallo " & Stadt & _
"er! Haben Sie es gut!"
  End If
End Sub

Aus dem zweiten Kursteil kennen Sie das folgende Beispiel:

Zahl = InputBox _
("Bitte eine ganze Zahl eingeben")
If Zahl < 0 Then
MsgBox "Zahl ist negativ!"
ElseIf Zahl < 1 Then
MsgBox _
"Eine 0 wurde eingegeben."
ElseIf Zahl < 10 Then
MsgBox "Zahl ist einstellig."
ElseIf Zahl < 100 Then
MsgBox "Zahl ist zweistellig."
Else
MsgBox "Zahl ist mindestens dreistellig."
End If

Eine Zahl wird schrittweise solange geprüft, bis die Bedingung wahr ist; erst dann erfolgt als Reaktion eine spezielle Mitteilung. Tritt kein wahrer Wert für die Bedingung auf, gibt es eine abschließende Mitteilung und der Block wird verlassen. Ebenfalls in der Lösungsdatei Lösung Steueranweisungen und Felder.xlsm im Modul Auswahl können Sie die Arbeitsweise nachvollziehen.