Microsoft Excel

Herbers Excel/VBA-Archiv

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"