Wie verwende ich die Select Case-Anweisung in VBA?

Die `Select Case`-Anweisung in VBA (Visual Basic for Applications) wird verwendet, um einen Ausdruck basierend auf seinem Wert zu prüfen und verschiedene Aktionen auszuführen, abhängig davon, welcher Wert dem Ausdruck zugeordnet ist. Sie ist nützlich, um Entscheidungsstrukturen zu erstellen, die übersichtlicher sind als verschachtelte `If…Then…Else`-Anweisungen.

Hier ist die grundlegende Syntax der `Select Case`-Anweisung:

Select Case Ausdruck
    Case Wert1
        ' Code ausführen, wenn Ausdruck gleich Wert1 ist
    Case Wert2
        ' Code ausführen, wenn Ausdruck gleich Wert2 ist
    Case Wert3, Wert4
        ' Code ausführen, wenn Ausdruck gleich Wert3 oder Wert4 ist
    Case Else
        ' Code ausführen, wenn keine der obigen Bedingungen erfüllt ist
End Select

Hier ist ein einfaches Beispiel, wie du `Select Case` verwenden kannst:

Sub BeispielSelectCase()
    Dim Note As Integer
    Note = 85

    Select Case Note
        Case Is >= 90
            MsgBox "Sehr gut"
        Case Is >= 80
            MsgBox "Gut"
        Case Is >= 70
            MsgBox "Befriedigend"
        Case Is >= 60
            MsgBox "Ausreichend"
        Case Else
            MsgBox "Nicht bestanden"
    End Select
End Sub

In diesem Beispiel wird die Variable `Note` überprüft und eine Nachricht ausgegeben, basierend auf dem Wert der Note. Die `Is`-Klausel wird verwendet, um Bereiche oder Bedingungen anzugeben. Beachte, dass der `Case Else`-Teil optional ist und ausgeführt wird, wenn keine der anderen Bedingungen erfüllt ist.

facebooklinkedin