Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen

30.08.2004 14:27:03

Monica

Hello!
Ich habe ein Makro welches mir ein Excel Datenblatt erstellt, das ich anschliessend in ein txt. File umwandeln will. In meinem txt. File sollten allerdings keine Leerzeilen vorkommen. Hat jemand ne Idee wie ich überflüssige Zeilen per Makro rausschmeissen kann?
Viele Grüsse und Danke!
Monica

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen löschen

Uduuh

AW: Zeilen löschen

Uduuh

Hallo,
so gehts:


Sub leereLoeschen()
Dim z As Integer
Application.ScreenUpdating = False
For z = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(z)) = 0 Then
Rows(z).EntireRow.Delete shift:=xlUp
End If
Next z
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo

Forumthread: Zeilen löschen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread