Hallo,
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:
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:
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
|