So schreiben sie eine case-anweisung in vba (mit beispiel)

Eine Case-Anweisung ist ein Anweisungstyp, der Bedingungen durchläuft und einen Wert zurückgibt, wenn die erste Bedingung erfüllt ist.

Sie können die folgende grundlegende Syntax verwenden, um eine case-Anweisung in VBA zu schreiben:

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

Dieses spezielle Beispiel betrachtet jede Zelle im Bereich B2:B9 und gibt die folgenden Werte im Bereich C2:C9 zurück:

• „ Ausgezeichnet “, wenn der Wert in Spalte B größer oder gleich 30 ist.
• Andernfalls „ Gut “, wenn der Wert in Spalte B größer oder gleich 20 ist.
• Andernfalls „ OK “, wenn der Wert in Spalte B größer oder gleich 15 ist.
• Andernfalls „ Schlecht “, wenn keine der vorstehenden Bedingungen erfüllt ist.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Schreiben einer Case-Anweisung in VBA

Nehmen wir an, wir haben den folgenden Datensatz in Excel, der die Anzahl der von verschiedenen Basketballspielern erzielten Punkte zeigt:

Angenommen, wir möchten eine Fallerklärung schreiben, um jedem Spieler basierend auf der Anzahl der erzielten Punkte den Wert „Ausgezeichnet“, „Gut“, „OK“ oder „Schlecht“ zuzuweisen.

Dazu können wir das folgende Makro erstellen:

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Spalte C gibt einen Wert „Ausgezeichnet“, „Gut“, „OK“ oder „Schlecht“ zurück, basierend auf dem entsprechenden Wert in Spalte B.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So klassifizieren Sie eine Werteliste
VBA: So zählen Sie eindeutige Werte im Bereich
VBA: So zählen Sie die Anzahl der Zeilen im Bereich