---

Hallo Forum,
Ich möchte gerne im Exel 2003 leere Zeilen global, automatisch entfernen, um die Seitenanzahl zu reduzieren.

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,
am einfachsten geht das über den Autofilter -> Anzeige: NichtLeere

Sonst auch über VBA:
Von unten nach oben, wenn Zellinhalt in Spalte A = Nichts dann lösch Zeile:

Code:

---

Sub ZeilenLoeschen()
Dim i%
For i = Columns(1).Find("*", [A1], , , xlByRows, xlPrevious).Row To 1 Step -1
    If Sheets(1).Cells(i, 1).Value = "" Then Rows(i).Delete
Next i
End Sub

---

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

das geht auch ohne Schleife (zu mindestens solange nicht mehr als 8192 Areas entstehen).

lg, Bernd
--

Code:

---

Option Explicit

Sub ZeilenLoeschen()
  On Error Resume Next
  Intersect(ActiveSheet.UsedRange, Columns(1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kannst du die Daten Sortieren?
Damit werden die leeren Zeilen automatisch entfernt.

Wenn sortieren nicht möglich ist, in einer leeren Spalte in der Zeile 1 eine 1
eintragen. In der zweiten Zeile =D1+1 (D ist die Spalte wo die Zahlen eingetragen
werden). Die Zelle D2 in den Zwischenspeichern nehmen, zur letzen Zeile gehen.
Mit Steuerung Shift und Pfeil nach oben alle Felder markieren. Einfügen.
Alle Fehler wo die Zahlen drin sind selektieren, kopieren, inhalte Einfügen mit
der Option Werte ausführen.
Nun alles nach Spalte A sortieren. Zur letzten Zeile gehen wo Daten eingetragen sind,
alle Zahlen unterhalb löschen.
Nun muss nur noch nach den Zahlen aufsteigend sortiert werden, Ende.

Wenn man sortieren darf geht es viel einfacher und schneller.

Gruss
Mike

------------------

The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP