Supportnet / Forum / Tabellenkalkulation
Zellen mit bestimmten Werten löschen
Frage
Hi Leute!
Wen im Sheet1 in der Zelle M11:M300 der Wert der Zelle kleiner 366 ist soll die gesamte Reihe gelöscht werden. Mein Ansatz war folgender:
Sub Löschen()
Dim i As Integer
Range("M11:M300").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value < "366" Then
ActiveCell.EntireRow.Delete
i = i + 1
End If
Loop
End Sub
funktioniert nur leider nicht ;) Vielleicht hat jemand auch eine Lösung bereit die wenig PC Leistung braucht und dadurch schnell abläuft.
Danke im Voraus
Gruß AF
Antwort 1 von JoeKe
Hallo AF,
versuch es mal so:
Sub löschen()
Dim i As Integer
i = 11
Do While Cells(i, 13) <> ""
If Cells(i, 13) < 366 Then Rows(i).Delete Shift:=xlUp
i = i + 1
Loop
End Sub
Gruß
JöKe
versuch es mal so:
Sub löschen()
Dim i As Integer
i = 11
Do While Cells(i, 13) <> ""
If Cells(i, 13) < 366 Then Rows(i).Delete Shift:=xlUp
i = i + 1
Loop
End Sub
Gruß
JöKe
Antwort 2 von VBA_Anfänger
Hi!
Perfekt!
Danke
AF
Perfekt!
Danke
AF