Sie k\u00f6nnen die folgende grundlegende Syntax verwenden, um eine case-Anweisung in VBA zu schreiben:<\/span><\/p>\n Dieses spezielle Beispiel betrachtet jede Zelle im Bereich B2:B9<\/strong> und gibt die folgenden Werte im Bereich C2:C9<\/strong> zur\u00fcck:<\/span><\/p>\n Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.<\/span><\/p>\n Nehmen wir an, wir haben den folgenden Datensatz in Excel, der die Anzahl der von verschiedenen Basketballspielern erzielten Punkte zeigt:<\/span> <\/p>\n Angenommen, wir m\u00f6chten eine Fallerkl\u00e4rung schreiben, um jedem Spieler basierend auf der Anzahl der erzielten Punkte den Wert \u201eAusgezeichnet\u201c, \u201eGut\u201c, \u201eOK\u201c oder \u201eSchlecht\u201c zuzuweisen.<\/span><\/p>\n Dazu k\u00f6nnen wir das folgende Makro erstellen:<\/span><\/p>\n Wenn wir dieses Makro ausf\u00fchren, erhalten wir die folgende Ausgabe:<\/span> <\/p>\n Spalte C gibt einen Wert \u201eAusgezeichnet\u201c, \u201eGut\u201c, \u201eOK\u201c oder \u201eSchlecht\u201c zur\u00fcck, basierend auf dem entsprechenden Wert in Spalte B.<\/span><\/p>\n In den folgenden Tutorials wird erl\u00e4utert, wie Sie andere h\u00e4ufige Aufgaben in VBA ausf\u00fchren:<\/span><\/p>\n VBA: So klassifizieren Sie eine Werteliste<\/a> Eine Case-Anweisung ist ein Anweisungstyp, der Bedingungen durchl\u00e4uft und einen Wert zur\u00fcckgibt, wenn die erste Bedingung erf\u00fcllt ist. Sie k\u00f6nnen 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 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"\n SubCaseStatement<\/span> ()\n\n Dim<\/span> i As<\/span> Integer\n\n For<\/span> i = 2 To<\/span> 9\n \n Select Case<\/span> Range(\" B<\/span> \" & i).Value\n Case Is<\/span> >= 30\n result=\" Great<\/span> \"\n Box Is<\/span> >= 20\n result = \" Good<\/span> \"\n Case Is<\/span> >= 15\n result=\" OK<\/span> \"\n Case Else<\/span>\n result=\" Bad<\/span> \"\n End Select<\/span>\n \n Range(\" C<\/span> \" & i).Value = result\n \n Next<\/span> i\n \nEnd Sub\n<\/span><\/strong><\/pre>\n\n
Beispiel: Schreiben einer Case-Anweisung in VBA<\/strong><\/span><\/h2>\n
![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vc1.jpg\")
<\/p>\n SubCaseStatement<\/span> ()\n\n Dim<\/span> i As<\/span> Integer\n\n For<\/span> i = 2 To<\/span> 9\n \n Select Case<\/span> Range(\" B<\/span> \" & i).Value\n Case Is<\/span> >= 30\n result=\" Great<\/span> \"\n Box Is<\/span> >= 20\n result = \" Good<\/span> \"\n Case Is<\/span> >= 15\n result=\" OK<\/span> \"\n Case Else<\/span>\n result=\" Bad<\/span> \"\n End Select<\/span>\n \n Range(\" C<\/span> \" & i).Value = result\n \n Next<\/span> i\n \nEnd Sub<\/span><\/strong><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vc2.jpg\")
<\/p>\n Zus\u00e4tzliche Ressourcen<\/strong><\/span><\/h2>\n
VBA: So z\u00e4hlen Sie eindeutige Werte im Bereich<\/a>
VBA: So z\u00e4hlen Sie die Anzahl der Zeilen im Bereich<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"