title image


Smiley Ich kenne nur die Möglichkeit per VBA
Hi,



und zwar so:









Sub workbook_open()

'Code kommt in DieseArbeitsmappe

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

 ws.PageSetup.PrintArea = ws.UsedRange.Columns.Address

Next ws

End Sub







Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: