Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeilen löschen

Leerzeilen löschen
15.02.2005 09:14:09
Ingo
Hallo, ich hätte mal eine kleine Frage.
Wie kann ich komplette Leerzeilen löschen.
Ich habe eine Tabelle mit mehreren Einträgen, doch dazwischen sind komplette Leerzeilen die ich gerne entfernt hätte...
Wäre nett wenn mir jemand helfen könnte.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen löschen
=Peter=
Hallo Ingo,
eine Möglichkeit wäre die Tabelle zu sortieren.
Sollte dies nicht möglich sein dann hilft es auch die erste Spalte komplett zu markieren und dann über Bearbeiten - Gehe zu - Inhalte - Leerzellen- OK zunächst die Leerzellen zu markieren und anschließend über Bearbeiten - Zellen Löschen - Ganze Zeile- OK die markierten Zeilen zu löschen.
HTH
Gruss
Peter
AW: Leerzeilen löschen
15.02.2005 10:06:47
Domi
Tschau Ingo,
versuch mal dies:

Sub DeleteEmptyRows()
Dim ActRow, LastRow
' letzte verwendete Zeile ermitteln
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
ActRow = 1
While (ActRow < LastRow)
If (IsEmpty(Cells(ActRow, 1))) Then
Rows(ActRow).Delete
' LastRow runterzählen, da sich die Anzahl der Zeilen
' durch das Löschen ja vermindert
LastRow = LastRow - 1
Else
ActRow = ActRow + 1
End If
Wend
End Sub

mit freundlichen Grüssen
Domi
Anzeige
AW: Leerzeilen löschen
Ingo
Alles klar danke, läuft perfekt. Super

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige