Select Case-Bedingung für Texte optimieren

2023, 6/2023, VBA und Programmiertechniken

Normalerweise verwenden wir die Select Case-Bedingung so, dass wir im Kopf einen einen Teil des Vergleichsausdrucks platzieren und in den einzelnen Case-Zweigen die Vergleichswerte. Genau genommen ist das der große Unterschied zur If…Then-Bedingung, die immer den kompletten Ausdruck in einem Zweig darstellt. Die If…Then-Bedingung scheint daher bei der Auswertung von Zeichenketten Vorteile zu haben. Wir können aber auch die Select Case-Bedingung prima für Zeichenketten nutzen.

Angenommen, wir untersuchen eine Zeichenkette, die wir in diesem Fall über eine InputBox erhalten. Mit einer If…Then-Bedingung können wir einfach bestimmte Auswertungen durchführen:

Public Sub IfThen()
     Dim strText As String
     strText = InputBox("Text:", "Text eingeben", "abc")
     If strText = "abc" Then
         MsgBox "Text ist ''abc''"
     ElseIf strText Like "a*" Then
         MsgBox "Text beginnt mit ''a''"
     ElseIf InStr(1, strText, "a") Then
         MsgBox "Text enthält ''a''"
     ElseIf Right(strText, 1) = "a" Then
         MsgBox "Text endet auf ''a''"
     End If
End Sub

[

Wenn wir das mit einer Select Case-Bedingung abbilden wollten, die manchmal übersichtlicher wirken, hätten wir außer bei der Abbildung der ersten Bedingung ein Problem:

Public Sub SelectCase()
     Dim strText As String
     strText = InputBox("Text:", "Text eingeben", "abc")
     Select Case strText
         Case "abc"
             MsgBox "Text ist ''abc''"
         Case ?
             MsgBox "Text beginnt mit ''a''"
         Case ?
             MsgBox "Text enthält ''a''"
         Case ?
             MsgBox "Text endet auf ''a''"
     End Select
End Sub

Der Trick ist dann, als ersten Vergleichswert True hinter Select Case zu schreiben und in den einzelnen Case-Zweigen einfach die kompletten Bedingungen als Bool“sche Ausdrücke einzufügen:

Nur für Abonnenten

Ab hier wird’s wirklich spannend – der Rest ist exklusiv für Abonnenten.

Mit dem Abo von Access im Unternehmen bekommst du den kompletten Artikel – inklusive vollständigem Code, Beispieldatenbank und Schritt-für-Schritt-Erklärung.

So sparst du dir stundenlanges Herumprobieren, vermeidest teure Fehler in deiner Access-Anwendung und kannst Lösungen direkt in deinem Unternehmen einsetzen, statt nur darüber zu lesen.

Teste Access im Unternehmen jetzt 4 Wochen lang kostenlos: Voller Zugriff auf alle Artikel, Downloads und Beispieldatenbanken. Kein Risiko – wenn es für dich nicht passt, kündigst du einfach innerhalb der ersten vier Wochen.

Bereits Abonnent? Hier einloggen

Kostenlos & unverbindlich

Oder hast Du eine konkrete Frage zu Deiner eigenen Access-Anwendung?

Vielleicht stellt Deine Anwendung Dich vor eine Herausforderung, zu der Du bisher keine Lösung findest. Schlechte Performance, kein ausreichender Zugriffsschutz, Du bist unsicher über Dein Datenmodell oder Dein Code liefert unerklärliche Fehler?

In unserem kostenlosen Access-Audit schaut sich André Minhorst persönlich gemeinsam mit Dir Deine Lösung per Zoom an – und zeigt Dir, wo Datenmodell, VBA-Code, Ergonomie und Sicherheit Optimierungspotenzial bieten.

Jetzt kostenloses Access-Audit anfordern →

Schreibe einen Kommentar