Hallo Steuerfuzzi
Danke für deine Rückmeldung!
es passiert was bis zu der 4. Zeile, Sprich:
es wird nur die "8" angezeigt, und danach unabhänig was ich ab Zeile 5 schreibe wird nicht die "9" angezeigt.
als ob der Code nur bis zu der Zeile 4 liest und abbricht...
Grüße
Axl
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
|