Herbers Excel/VBA-Archiv

Zeilen löschen

• Zeilen löschen von Monica vom 30.08.2004 12:27:03
• AW: Zeilen löschen - von Uduuh am 30.08.2004 12:42:06

Betrifft: Zeilen löschen von: Monica
Geschrieben am: 30.08.2004 12:27:03

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

Betrifft: AW: Zeilen löschen von: Uduuh
Geschrieben am: 30.08.2004 12:42:06

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

Beiträge aus den Excel-Beispielen zum Thema "Zeilen löschen"