Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
Frage nicht mehr offen o.w.T.
06.12.2005 14:38:47
Reinhard
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige