Zeilen löschen

Bild

Betrifft: Zeilen löschen
von: Norbert
Geschrieben am: 21.09.2015 16:25:07

Hallo Zusammen
für euch sicher ein Einfaches :)
in der beiliegenden Liste sollen alle Zeilen gelöscht werden, bei der die Zelle in der Spalte "Preis" leer ist. Es können bis zu 800 Zeilen aufgelistet sein. Wie sieht das Script aus, dass alle auf einmal gelöscht werden?
Danke im Voraus
https://www.herber.de/bbs/user/100302.xlsx

Bild

Betrifft: AW: Zeilen löschen
von: matthias
Geschrieben am: 21.09.2015 16:30:59
Hallo Norbert,

Sub Bereinigen()
Dim x As Long
For x = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Cells(x, 3) = "" Then Rows(x).Delete
Next x
End Sub
lg Matthias

Bild

Betrifft: AW: Zeilen löschen
von: Daniel
Geschrieben am: 21.09.2015 16:33:37
HI
Beispielsweise so:

columns(3).SpecialCells(xlcelltypeblanks).EntireRow.Delete
Gruß Daniel

Bild

Betrifft: AW: Zeilen löschen
von: Werner
Geschrieben am: 22.09.2015 00:27:41
Hallo Daniel,
wieder mal ein Einzeiler von dir -- klasse -- kann ich sicher auch mal gebrauchen.
Gruß Werner

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen löschen"