Leerzeilen entfernen geht nicht!?
Logan
Ich hab jetzt noch ein Problem:
Sub LeereZeilenlöschen()
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim Bereich3 As Range
Sheets("Tabelle1").Activate
Set Bereich1 = Range(Cells(1, 1), _
Cells(ActiveSheet.UsedRange.Rows.Count, 1))
Set Bereich1 = Bereich1.SpecialCells(xlBlanks).EntireRow
Bereich1.Delete
Sheets("Tabelle2").Activate
Set Bereich2 = Range(Cells(1, 1), _
Cells(ActiveSheet.UsedRange.Rows.Count, 1))
Set Bereich2 = Bereich2.SpecialCells(xlBlanks).EntireRow
Bereich2.Delete
Sheets("Tabelle3").Activate
Set Bereich3 = Range(Cells(1, 1), _
Cells(ActiveSheet.UsedRange.Rows.Count, 1))
Set Bereich3 = Bereich3.SpecialCells(xlBlanks).EntireRow
Bereich3.Delete
End Sub
Mit diesem Makro möchte ich alle Leerzeilen löschen, aber irgendwie passiert bei mir nichts! Ab und an mal, geht es bei der letzten Tabelle. Kann sich jemand vorstellen was hier nicht geht bzw. stimmt?
MfG
Logan