Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen löschen

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"