AW: Zu viele Zeilen
08.03.2006 10:29:34
Hoffi
Hallo,
mit diesem Makro löschst Du alle nicht genutzten Zeilen und Spalten und blendest Sie aus, denn Excel fügt automatisch wieder Zeilen neu dazu wenn Du welche löschst.
Makro im Editor in ein Modul kopieren und ausführen.
Sub Löschen_und_Verstecken()
Dim ws As Worksheet
On Error Resume Next
For Each ws In Worksheets
With ws
.Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 & ":65536").EntireRow.Delete = _
Not .Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 & ":65536").EntireRow.Delete
.Range(.Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1), .Cells(65536, 256)).EntireColumn.Delete = _
Not .Range(.Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1), .Cells(65536, 256)).EntireColumn.Delete
.Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 & ":65536").EntireRow.Hidden = _
Not .Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 & ":65536").EntireRow.Hidden
.Range(.Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1), .Cells(65536, 256)).EntireColumn.Hidden = _
Not .Range(.Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1), .Cells(65536, 256)).EntireColumn.Hidden
End With
Next ws
End Sub
Grüße
Hoffi