Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

leere Zeilen löschen

Forumthread: leere Zeilen löschen

leere Zeilen löschen
06.12.2005 14:29:28
Hummel
Hallo
ich möchte alle leeren Zeilen in einer Tabelle löschen.
Wie mache ich das am einfachsten und schnellsten?
Vielen Dank im voraus
Kerstin Hummel
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: leere Zeilen löschen
06.12.2005 14:30:47
Hajo_Zi
Halo Kerstin,

Sub Leerzeilen_loeschen()
'   alle Leerzeilen löschen
Dim LoI As Long
Dim RaZeile As Range
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Application.WorksheetFunction.CountA(Rows(LoI)) <> ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
End If
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
Set RaZeile = Nothing
End Sub



Anzeige
Danke- klappt super!
06.12.2005 14:33:26
Kerstin
Hallo Hajo
vielen Dank!- klappt super
Gruß Kerstin
AW: leere Zeilen löschen
06.12.2005 14:37:34
Reinhard
Hi Kerstin,
geht schnell ist aber very dirty deshalb Frage noch auf offen bis was seriöses kommt. 

for n = 1000 to 2 step -1
if application.worksheetfunction.sum(range(cells(n,1),cells(n,256))) = 0 then
cells(n,1).entirerow.delete
next n

Klappt nur wenn zumindest eine Zahl in "vollen" Zeilen steht.
Pech ist wenn +5 und -5 in der Zeile steht:-)
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
Anzeige
Frage nicht mehr offen o.w.T.
06.12.2005 14:38:47
Reinhard
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige