VBA – Programmierung mit Excel Grundlagen

Kontrollstrukturen
Anwendungsbeispiel:
Select Case Zahl1
Case Is 8 And Zahl1 < 11
Meldung = "Zahl ist 9 oder 10"
Case Else
Meldung = "Zahl außerhalb des Bereichs"
End Select
Select Case Wohnort
Case "Hamburg", "Bremen", "Kiel"
Meldung = "Norden"
Case "München", "Passau"
Meldung = "Süden"
Case Else
Meldung = "leicht erreichbar"
End Select
Das folgende (lustige) Beispiel einer Gewinnauswertung mittels SELECT CASE
arbeitet u.a. mit schon weiter oben im Text vorgestellten Objektvariablen:
Sub GewinnAuswertung ()
Dim Umsatz As Range
Dim Kosten As Range
Dim Gewinn As Single
Set Umsatz = Worksheets("Endwerte").Range("D25")
Set Kosten = Worksheets("Endwerte").Range("G25")
Gewinn = Umsatz.Value – Kosten.Value
Select Case Gewinn
Case Is < 10
Meldung = "Werbung !"
Case 11 To 8000
Meldung = "passabel"
Case 8001 To 15000
Meldung = "super"
Case Is > 15000
Meldung = "Wahnsinn"
Case Else
Meldung = "Manipulation ??"
End Select
End Sub
5.4.1.4 Die Switch - Funktion
Die Funktion SWITCH, mit der Syntax:
Switch (Bedingung1, Ausdruck1 [, Bedingung2, Ausdruck2]....)
vergleichbar mit der SELECT CASE - Struktur:
FamStand = Switch(Kenn = 1, "ledig", Kenn = 2 , "verheiratet",
Kenn = 3, "verwitwet")
wertet eine Liste von Bedingungen aus und verarbeitet den Ausdruck der zutreffenden
Bedingung.
Seite 41