ich versuche mit einer schleife immer eine zelle weiter zu gehen bis ich 50 zellen durch habe.
was ist da falsch?
Sub löschen()
Dim i As Integer
i = 1
Do
Debug.Print i
If Range("E5+i").Value > Range("E4").Value Then
Range("a5+i").Delete
i = i + 1
End If
Loop Until i < 50
End Sub