Herbers Excel/VBA-Archiv

Tabellenbeich ausblenden

• Tabellenbeich ausblenden von Micha vom 10.09.2004 18:23:20
• AW: Tabellenbeich ausblenden - von nighty am 10.09.2004 20:07:08
  • AW: Tabellenbeich ausblenden - von Micha am 10.09.2004 20:22:36

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"