Supportnet Computer
Planet of Tech

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

Antwort 2 von VBA_Anfänger

Hi!

Perfekt!

Danke
AF

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: