Schleifenproblem
04.06.2018 15:26:00
CarVogt
ich habe in einem Makro folgende Schleife:
i = 1
Set wks = ThisWorkbook.ActiveSheet
With wks
Do While Not Cells(i, 15) = ""
If Cells(i, 14) = "Ja" Then GoTo weiter
If Cells(i, 15) < 0.334 Then Rows(i).Delete
weiter:
i = i + 1
Loop
Es funktioniert auch bis zur letzten Zeile, diese wird leider nicht gelöscht und ich habe keine Ahnung warum. Ist sicherlich eine Kleinigkeit, aber ich finde sie leider nicht.
Gruß
Carsten