Tabellenbeich ausblenden
Betrifft: Tabellenbeich ausblenden
von: Micha
Geschrieben am: 10.09.2004 18:23:20
Hallo!
Ich möchte den nicht benötigten Tabellenbeich ausblenden. Das realisiere ich mit folgendem Code:
Dim WsTab As Worksheet
For Each WsTab In Worksheets
With WsTab
.Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 & ":65536").EntireRow.Hidden = True
.Range(.Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1), .Cells(65536, 256)).EntireColumn.Hidden = True
End With
Next WsTab
Mein Problem ist, daß der rechte und untere Rahmen der Tabelle nun ebenfalls ausgeblendet ist und nicht mehr mit gedruckt wird. Hat da jemand eine Idee?
Danke
Micha
Betrifft: AW: Tabellenbeich ausblenden
von: nighty
Geschrieben am: 10.09.2004 20:07:08
hi micha :)
statt +1 nun +2 muesste hilfreich sein :)
gruss nighty
.Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 2 & ":65536").EntireRow.Hidden = True
.Range(.Cells(1, .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 2), .Cells(65536, 256)).EntireColumn.Hidden = True
Betrifft: AW: Tabellenbeich ausblenden
von: Micha
Geschrieben am: 10.09.2004 20:22:36
Ja, klar. Nur dann hab ich wieder rechts und unten eine unbenutzte Zeile/Spalte (die ich ja eigendlich ausblenden wollte) :o(
Trotzdem Danke
Micha
Beiträge aus den Excel-Beispielen zum Thema "Tabellenbeich ausblenden"