Delete Blank Rows
26.05.2015 09:30:11
Larissa
ich habe folgendes Problem:
Ich habe mehrere Mappen in einer Excel-Datei und möchte nun in allen Mappen die leeren Zeilen löschen.
Sub DeleteBlankRows1()
'Hilfsvariablen
Dim ws As Worksheet
' Alle vorhandenen Arbeitsblätter durchlaufen
For Each ws In Worksheets
Dim rng As Range
Set rng = Range("A:A").SpecialCells(xlCellTypeBlanks)
rng.EntireRow.Delete
Next
End Sub
Scheinbar macht er das für die ersten sechs Mappen, aber die letzte Mappe wird nicht aufgerufen. Kann es damit zusammenhängen, dass die Mappe ein Umlaut besitzt? Eher nicht, oder?