AW: Zeilen- und Spaltenüberschriften
03.03.2006 09:08:08
Hoffi
Hallo Oscar,
diesen Code in ein Modul:
Sub Arbeitsbereich()
Dim ws As Worksheet
On Error Resume Next
For Each ws In Worksheets
With ws
.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
Jetzt kannst Du Dir einen Button in der Symbolleiste erstellen, dieses Makro zuweisen und ab der letzten genutzten Spalte und Zeile wird ausgeblendet.
Grüße
Hoffi
P.S. Rückmeldung wäre nett...