Es wird immer nur die erste Zeile gelöscht

Question

Ich habe hier einen guten Thread gefunden
https://supportnet.de/stat/2003/3/id131096.asp
Aber immer wenn ich das Makro verwende löscht es bei mir nur eine Zeile:

Sub test()
Dim i As Integer
Dim n As Integer
i = Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To i
If Cells(1, 5).Value <= 0.1 Then
Rows(n).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub

Habt Ihr da noch einen Tip?

Gruß Sven

Answer 1

hi :-)

wie gewünscht

Gruss Nighty

Dein korrigierter code

Sub test()
Dim i As Integer
Dim n As Integer
i = Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To i
If Cells(n, 5).Value <= 0.1 Then
Rows(n).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub

Alternativ

Sub DatenLöschen()
ActiveSheet.Cells(1, 5).AutoFilter Field:=1, Criteria1:="<=0.1"
ActiveSheet.Rows("2:" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Delete Shift:=xlUp
ActiveSheet.Cells(1, 5).AutoFilter
End Sub

Answer 2

hi all ^^

noch auf spalte 5 angepasst
Überschrift vorrausgesetzt

gruss nighty

Sub DatenLöschen()
ActiveSheet.Cells(1, 5).AutoFilter Field:=1, Criteria1:="<=0.1"
ActiveSheet.Rows("2:" & ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row).Delete Shift:=xlUp
ActiveSheet.Cells(1, 5).AutoFilter
End Sub