makro zum löschen von leerzeilen

Forumthread: makro zum löschen von leerzeilen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: makro zum löschen von leerzeilen

10.09.2005 15: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

AW: makro zum löschen von leerzeilen

10.09.2005 16:21:16

leerzeilen
AW: makro zum löschen von leerzeilen

10.09.2005 16:39:59

leerzeilen

AW: makro zum löschen von leerzeilen

10.09.2005 16: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 16:39:59

leerzeilen

Hi Matthias,
vielen dank, funktioniert einwandfrei, for-schleife also, tja, wenn man VBA-fit ist gehts schnell!
lg
Tobias