AW: nur Arbeitsbereich einblenden
18.08.2005 09:44:41
Hajo_Zi
Hallo Christian,
inwieweit Du das in Deinen Code einbinden kannst she ich nicht. Ich lehne es ab über das Internet auf fremde Rechner zu schauen.
Option Explicit
Sub BenutzterBereich()
'* H. Ziplies *
'* 18.10.03, 10.04.05, 18.08.05 *
'* erstellt von Hajo.Ziplies@web.de *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
' Unbenuzten Bereich der Tabelle ausblenden
' bei allen Tabellen der Datei
Dim WsTabelle As Worksheet
' Fehlerbehandlung falls alle Spalten odr Zeilen benutzt
On Error Resume Next
' Schleife über alle Tabellen
For Each WsTabelle In Worksheets
With WsTabelle
' Zeilen ausblenden
.Rows("36:65536").EntireRow.Hidden = Not .Rows("36:65536").EntireRow.Hidden
' Spalten ausblenden
.Range(.Cells(1, 17), .Cells(65536, 256)).EntireColumn.Hidden = _
Not .Range(.Cells(1, 17), .Cells(65536, 256)).EntireColumn.Hidden
End With
Next WsTabelle
End Sub
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.