leere zeilen löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub LoescheLeereZeilen() Dim f As Long Dim LZ As Long Sheets("name").Activate LZ = ActiveSheet.UsedRange.Rows.Count Range("zelle").Select For f = f To LZ If Len(ActiveCell.Value) = "0" _ Then Selection.EntireRow.Delete _ Else ActiveCell.Offset(1, 0).Select Next f End Sub

Hallo Jack,

wenn Du nur leere Zeilen löschen möchtest, muß die Bedingung dafür deklarieren.
Du kannst natürlich ein Makro aufzeichen. Aber wenn Du z.B. die leere Zeile 2 selektierst,
wird das Makro immer Zeile 2 löschen.

Gehe zu Exras, Makro, VisualBasiceditor.
dann unter Einfügen, Modul.
Links im Projektfenster auf das Modul doppelklicken, den von mir geposteten Code einfügen und Du brauchst das Makro nur noch unetr Extras, Makro Ausfüheren zu starten und er knallt Dir alle zeilen raus, wo in Spalte C keine Einträge vorhanden sind.
Erstelle Dir vorher eine Kopie Deiner Tabelle, falls was schief läuft.
bei mir funzt das Makro einwandfrei, ist aber keine Garantie.

Gruß

DieterB

Sub LoescheLeereZeilen() Dim f As Long Dim LZ As Long Sheets("Tabelle1").Activate LZ = ActiveSheet.UsedRange.Rows.Count Range("h2:i200").Select For f = f To LZ If Len(ActiveCell.Value) = "0" _ Then Selection.EntireRow.Delete _ Else ActiveCell.Offset(1, 0).Select Next f End Sub

Sub Loeschen() Dim lgCount As Long 'ggf. den Tabellennamen anpassen With Sheets("Tabelle2") 'Bereich Zeilen 2 bis 200 For lgCount = 200 To 2 Step -1 If WorksheetFunction.CountA(.Range("H" & lgCount & ":I" & lgCount)) = 0 Then .Rows(lgCount).Delete End If Next End With End Sub

Hallo Peter,

das Problem (siehe oben) Jack wollte die Zeilen löschen, wo die spalte h + i leer sind.
Das funktionierte, nachdem er mir die Tabelle zugeschickt hat und ich den code sah. Neues Modul, Code rein und lief.

dann hat Jack die Zeilen, wo die Überprüfung stattfand(H2:i200) geändert in
(H18:i200).
Jetzt hat der Code merkwürdigerweise alle Zeilen gelöscht, sobald er eine leere Zeile gefunden hat.
Sprich h18 ist leer, h19 hat wert und wurde auch gelöscht.
Test: h18:h22 = Wert, h23 = leer, h24:h26 = wert.
Jetzt hat das Makro alle Zeilen unterhalb von H23 gellert.
Mit deinem Code hat er wirklich nur die Zeilen gelöscht, wo alle Spalten leer waren.

verstanden hab ich es auch nicht so wirklich, warum.
Aber es funzt.

gruß

DieterB

Beliebteste Forumthreads (12 Monate)

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread