Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makro zum löschen von leerzeilen

makro zum löschen von leerzeilen
10.09.2005 13:59:34
leerzeilen
Hi alle zusammen,
ich versuche ein macro zu schreiben mit dem man automatisch alle Leerzeilen (nur formatiert, keine werte oder formeln) in einem Dokument löschen kann um es leichter zu bearbeiten ohne dies durch makieren und "Zeile löschen" zu tun. Das heißt es sollte in irgendeiner form eine Schleife enthalten die bis zum Ende des dokuments geht und den Befehl leerzeile suchen, makieren, löschen wiederholt.
Vielen Dank für die Hilfe im Vorhinein!
Tobias

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro zum löschen von leerzeilen
10.09.2005 14:21:16
leerzeilen
Hallo Tobias,
z.B.

Sub LeerzeilenLöschen()
Dim lz  As Long, i As Long
lz = Cells.SpecialCells(xlCellTypeLastCell).Row
Application.ScreenUpdating = False
For i = lz To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß Matthias
AW: makro zum löschen von leerzeilen
10.09.2005 14:39:59
leerzeilen
Hi Matthias,
vielen dank, funktioniert einwandfrei, for-schleife also, tja, wenn man VBA-fit ist gehts schnell!
lg
Tobias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige