Select Case-Bedingung für Texte optimieren

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

Username or Email

Passwort

Angemeldet bleiben