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

Alle Zeilen Löschen wenn Zelle D leer

Alle Zeilen Löschen wenn Zelle D leer
01.12.2017 12:11:56
Max
Hallo Excel Pros,
ich stehe leider etwas auf dem schlauch:
Ich möchte alle Zeilen in einer Tabelle löschen in denen die Zelle der Spalte D leer ist.

For i = 2 To lRow
If IsEmpty(Cells(i, 4).Value) Then
Next i
Else
Set rng = Range(Cells(Flag), Cells(i))
Rows(rng).Select
Selection.Delete Shift:=xlUp
Flag = i + 1
Next i
End If
Leider löscht er damit nicht alle Zeilen weil ich nur einmal Next i pro For schleife eingeben kann (Laut Vba)
Kann mir da jemand helfen?
Die Beispieldatei kann ich aus irgendeinem Grund nicht hochladen aber im endeffekt ist da nur die Zellen der Spalte D abwechselnd befüllt und dann wieder nicht.
Vielen Dank!
LG
Max

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Zeilen Löschen wenn Zelle D leer
01.12.2017 12:20:47
Werner
Hallo Max,
beim Löschen die Schleife immer von unten nach oben:
Public Sub Löschen()
Dim loLetzte As Long, i As Long
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .UsedRange.Rows.Count
For i = loLetzte To 2 Step -1
If .Cells(i, 4).Value = "" Then
.Rows(i).Delete
End If
Next i
End With
End Sub
Gruß Werner
AW: Alle Zeilen Löschen wenn Zelle D leer
01.12.2017 13:16:49
Max
Super danke dir werner!
Gerne u. Danke für die Rückmeldung. o.w.T.
01.12.2017 14:16:46
Werner
AW: Alle Zeilen Löschen wenn Zelle D leer
01.12.2017 12:22:01
Bernd
Servus Max,
als Ansatz:

Sub loeschen()
Dim i As Integer
Dim intLZ As Integer
intLZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = intLZ To 1 Step -1
If IsEmpty(Cells(i, 1)) Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
Grüße, Bernd
Anzeige

376 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige