Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen löschen, wenn bestimmte Zelle leer

Zeilen löschen, wenn bestimmte Zelle leer
04.01.2019 10:52:29
Georg
Liebe Mitglieder, was mache hier falsch?
Der Code macht zwar prinzipiell das was er soll, es bleibt aber IMMER eine Zeile zurück, in der in Zelle "Ix" kein Wert steht. Sie sollte aber gelöscht werden.
In Zeile 1 stehen Überschriften, deswegen habe ich bei 2 angefangen.
Danke für eure Tipps!!
Sub ZeileLöschen()
dim z as long
With ThisWorkbook.Worksheets("Daten")
For z = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(z, 9).Value = "" Then
.Rows(z).Delete shift:=xlDown
End If
Next z
End With
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen, wenn bestimmte Zelle leer
04.01.2019 10:57:56
Werner
Hallo Georg,
Schleife zum Löschen immer rückwärts laufen lassen:
Sub ZeileLöschen()
Dim z As Long
With ThisWorkbook.Worksheets("Daten")
For z = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(z, 9).Value = "" Then
.Rows(z).Delete shift:=xlDown
End If
Next z
End With
End Sub
Gruß Werner
AW: Zeilen ..DANKE liebe Werner..
04.01.2019 11:02:37
Georg
... wieder was dazugelernt. Gruß Georg
Gerne u.Danke für die Rückmeldung. o.w.T.
04.01.2019 21:58:33
Werner
AW: Zeilen löschen, wenn bestimmte Zelle leer
04.01.2019 11:09:12
mpb
Hallo Georg,
du willst alle Zeilen löschen, in denen in der Spalte I die Zelle leer ist? Das geht einfacher und schneller ohne Schleife mit folgendem Einzeiler:
Sub ZeilenLöschen()
ThisWorkbook.Worksheets("Daten").Columns("I:I").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Gruß
Martin
Anzeige

354 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige