alle Zeilen ohne Inhalt löschen

Forumthread: alle Zeilen ohne Inhalt löschen

20.12.2017 21:59:40

Lutz

Hallo,
In dieser Tabelle möchte ich alle Zeilen ohne Inhalt löschen.
Kann mir jemand per VBA weiterhelfen?
https://www.herber.de/bbs/user/118456.xls
Gruß Lutz

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: alle Zeilen ohne Inhalt löschen

20.12.2017 22:06:56

Sepp
AW: alle Zeilen ohne Inhalt löschen

20.12.2017 22:10:34

Lutz
AW: F5

20.12.2017 22:09:52

Fennek
AW: alle Zeilen ohne Inhalt löschen

20.12.2017 22:17:05

Daniel
AW: alle Zeilen ohne Inhalt löschen

20.12.2017 22:25:06

Lutz
Dann einfach die Formel anpassen

21.12.2017 12:29:29

Daniel

AW: alle Zeilen ohne Inhalt löschen

20.12.2017 22:06:56

Sepp

Hallo Lutz,

' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub deleteBlanks()
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Gruß Sepp

AW: alle Zeilen ohne Inhalt löschen

20.12.2017 22:10:34

Lutz

Danke!

AW: F5

20.12.2017 22:09:52

Fennek

Hallo,
mit F5, Inhalte, Leerzellen auswählen und löschen.
mfg

AW: alle Zeilen ohne Inhalt löschen

20.12.2017 22:17:05

Daniel

Hi
da sind jetzt alle Zeilen leer, bis auf die erste.
müssen alle Zellen einer Zeile überprüft werden oder reicht es aus, diese Prüfung in einer Spalte zu vorzunehmen?
Grundsätlich löst du solche Zeilen-Löschen-Aufgaben in deiner Excelversion am besten so:
1. in einer Hilfsspalte am Tabellenende per Formel alle Zeilen die gelöscht werden sollen mit einer Zahl kennzeichnen und alle, die stehen bleiben müssen, mit einem Text (zb. 1 und "")
2. über Inhalte-Auswählen kannst du dann die Zellen selektieren, die die 1 haben und diese Zeilen löschen.
geht mit VBA dann so:

With AcitveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(COUNTA(RC1:RC[-1])=0,1,"""")"
If Worksheetfunction.Sum(.Cells) > 0 Then
.SpecialCells(xlcelltypeformulas, 1).EntireRow.Delete
end if
End With
End With

bei größerern Datenmengen würde es sich lohnen, vor dem löschen noch die Liste nach der Hilfsspalte zu sortieren, weil das Löschen schneller geht, wenn die zu löschenden Zeilen einen lückenlosen Zellblock bilden.
Gruß Daniel

AW: alle Zeilen ohne Inhalt löschen

20.12.2017 22:25:06

Lutz

Danke. Ich hab nochmal einen neuen Beitrag gemacht. Alle leeren Zeilen in Spalte B. In Spalte A werden die Inhalte dann eben auch gelöscht.
Gruß Lutz

Dann einfach die Formel anpassen

21.12.2017 12:29:29

Daniel

Wenn die Spalte A nicht geprüft werden soll, dann
=If(CountA(RC2:RC[-1])=0,1,"""")
Wenn nur die Spalte B leer sein muss
=If(RC2="""",1,"""")
Gruß Daniel

Forumthread: alle Zeilen ohne Inhalt löschen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread