title image


Smiley Re: Druckbereich automatisch anpassen
Hi,



so geht es:









Sub Workbook_open()

'Code kommt in DieseArbeitsmappe

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

 ws.PageSetup.PrintArea = ws.UsedRange.Address

Next ws

End Sub







Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: