ein makro füllt mir nach Auswahl Zeilen einer Listre aus.
Am Ende möchte ich alle übrigen Zeilen dieser Liste löschen wenn Sie in Spalte E kleiner als 1 sind (da steht eine Formel drin)
was mus ich da denn schreiben?
Danke volker
Sub untereinsinE()
Dim i As Long, Lrow As Long
Lrow = Cells(Rows.Count, 5).End(xlUp).Row
For i = Lrow To 1 Step -1
If Cells(i, 5).value < 1 Then Rows(i).Delete
Next i
End Sub