select Case
27.07.2020 13:35:41
Tim
ich habe eine IF Schleife, die zukünftig mehrere Dinge Abfragen soll. Damit es übersichtlich bleibt wollte ich mich an einer select Case Funktion probieren, jedoch scheitere ich daran.
Ziel soll es sein, ein Tabellenblatt zu durchlaufen und zu prüfen ob die ersten Zeichen von links einem Vergleichswert entsprechen.
Dabei ändert sich aber die Zeichenlänge welche ich gern per Select Case abfragen wollte.
Hier mal mein Beispiel, welches nicht so richtig funktioniert:
Private Sub Test_Click()
Dim Auswertung As Long, i As Long
Auswertung = Worksheets("Sheet").Cells(Worksheets("Sheet").Rows.Count, 1).End(xlUp).Row
For i = 2 To Auswertung
Select Case Left$(i, 2)
Case "27": Worksheets("Sheet").Cells(i, 13) = "ja"
End Select
Next
End Sub