<\/p>\n
Neben der If…Then<\/b>-Bedingung gibt es noch eine weitere Bedingung unter Access VBA. Diese heißt Select Case <\/b>und sie bietet in vielen Fällen eine praktische Alternative zur If…Then<\/b>-Bedingung. Das gilt insbesondere, wenn auf der einen Seite des Vergleichsausdrucks immer die gleiche Variable oder der gleiche Wert steht, der mit anderen Werten verglichen werden soll. Auf den folgenden Seiten stellen wir die Select Case<\/b>-Verzweigung mit allen Varianten und Möglichkeiten vor.<\/p>\nBeispieldatenbank<\/h2>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 2101_VBA_SelectCase.accdb<\/b>.<\/p>\nSyntax der Select Case-Bedingung<\/h2>\n
Die Select Case<\/b>-Bedingung enthält in der ersten Zeile die Schlüsselwörter Select Case <\/b>sowie den ersten Teil des Vergleichs, also praktisch den Teil links vom Operator.<\/p>\n
Abgeschlossen wird die Select Case<\/b>-Bedingung von der Zeile End Select<\/b>. Dazwischen befinden sich mehrere Case<\/b>-Zeilen. Diese enthalten entweder einen oder mehrere Vergleichsausdrücke oder das Schlüsselwort Else<\/b>. Einer jeden Case<\/b>-Zeile folgen keine, eine oder mehrere Anweisungen, die ausgeführt werden, wenn die jeweilige Bedingung erfüllt ist:<\/p>\n Dabei durchläuft die Select Case<\/b>-Verzweigung die einzelnen Case<\/b>-Zweige, bis einer davon die Bedingung erfüllt. Die in diesem Zweig steckenden Anweisungen werden dann ausgeführt und danach wird die Select Case<\/b>-Verzweigung verlassen.<\/p>\n Im ersten Beispiel fragt eine InputBox <\/b>eine Zahl ab und trägt diese in die Variable i <\/b>ein. Danach steigen wir in die Select Case<\/b>-Anweisung ein. Diese verwendet die Zahl i <\/b>als ersten Teil des Vergleichsausdrucks, also quasi als den Teil auf der linken Seite des Vergleichsoperators.<\/p>\n Die folgenden Case<\/b>-Zweige enthalten jeweils einen Zahlenwert, der dem zweiten Teil des Vergleichsausdrucks rechts vom Vergleichsoperator entspricht. Wenn kein Vergleichsoperator angegeben wurde, verwendet Select Case <\/b>das Gleichheitszeichen als Vergleichsoperator.<\/p>\n Der erste Case<\/b>-Zweig vergleicht also den Wert von i <\/b>mit der Zahl 1<\/b>. Hat der Benutzer die Zahl 1 <\/b>eingegeben, ist diese Bedingung erfüllt und die Meldung mit dem Text Sie haben 1 eingegeben <\/b>wird angezeigt. Die übrigen Case<\/b>-Zweige werden nicht mehr berücksichtigt. Wenn der Benutzer den Wert 2 <\/b>oder 3 <\/b>eingegeben hat, werden der zweite oder der dritte Zweig angesteuert. Hat der Benutzer einen anderen Zahlenwert eingegeben, läuft die Prozedur bis zum Case Else<\/b>-Zweig der Verzweigung und gibt die dort angegebene Meldung aus:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Select Case
Einfaches Beispiel für die VBA Select Case-Verzweigung<\/h2>\n
Public Sub <\/span>EinfachesBeispiel()\r\n Dim <\/span>i As Integer<\/span>\r\n i = InputBox(\"Geben Sie eine Zahl zwischen \" _\r\n & \"1 und 3 ein.\", , 0)\r\n Select Case i\r\n Case <\/span>1\r\n MsgBox<\/span> \"Sie haben 1 eingegeben.\"\r\n Case <\/span>2\r\n MsgBox<\/span> \"Sie haben 2 eingegeben.\"\r\n Case <\/span>3\r\n MsgBox<\/span> \"Sie haben 3 eingegeben.\"\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Keine gültige Zahl.\"\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nWeitere Vergleichsoperatoren für Select Case<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t