|
Hallo,
1 | If ws.Cells(iRow, 10).Value = "5,0" Or "5,9" Or "2,8" Or "3,5" Or "1,0" Or "3,8" Or "5,0" Then
|
Das klappt so nicht!
Entweder so:
1 | If ws.Cells(iRow, 10).Value = "5,0" Or ws.Cells(iRow, 10).Value = "5,9" Or ws.Cells(iRow, 10).Value = "2,8" ... Then
|
Aber: Sind das wirklich Texte, die in den Zellen stehen? Weil du die Zahlen in Anführungsstrichen schreibst. Wenn es wirklich Zahlen sind, müssen die Anführungszeichen weg.
Bei so vielen Auswahlmöglichkeiten würde ich aber eher so arbeiten:
1 2 3 4 5 6 7 8 | For iRow = 10 To Cells(Rows.Count, 10).End(xlUp).Row
Select Case ws.Cells(iRow, 10).Value
Case 5, 5.9, 2.8, 3.5, 1.0, 3.8, 5,0
wb.Worksheets("Freigabeantrag").Range("AB3") = "8"
Case 5.7, 6.3, 3.0, 5.7, 5.3, 2.2, 5.5
wb.Worksheets("Freigabeantrag").Range("AB3") = "9"
End select
Next
|
|