Sub Pagesetup_Uebernehmen()
Dim ps As PageSetup, sh As Worksheet
Set ps = ActiveSheet.PageSetup
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> ActiveSheet.Name Then
With sh.PageSetup
.BlackAndWhite = ps.BlackAndWhite
.BottomMargin = ps.BottomMargin
.CenterFooter = ps.CenterFooter
.CenterHeader = ps.CenterHeader
.CenterHorizontally = ps.CenterHorizontally
.CenterVertically = ps.CenterVertically
.Draft = ps.Draft
.FirstPageNumber = ps.FirstPageNumber
.FitToPagesTall = ps.FitToPagesTall
.FitToPagesWide = ps.FitToPagesWide
.FooterMargin = ps.FooterMargin
.HeaderMargin = ps.HeaderMargin
.LeftFooter = ps.LeftFooter
.LeftHeader = ps.LeftHeader
.LeftMargin = ps.LeftMargin
.Order = ps.Order
.Orientation = ps.Orientation
.PaperSize = ps.PaperSize
.PrintArea = ps.PrintArea
.PrintComments = ps.PrintComments
.PrintErrors = ps.PrintErrors
.PrintGridlines = ps.PrintGridlines
.PrintHeadings = ps.PrintHeadings
.PrintNotes = ps.PrintNotes
.PrintQuality = ps.PrintQuality
.PrintTitleColumns = ps.PrintTitleColumns
.PrintTitleRows = ps.PrintTitleRows
.RightFooter = ps.RightFooter
.RightHeader = ps.RightHeader
.RightMargin = ps.RightMargin
.TopMargin = ps.TopMargin
.Zoom = ps.Zoom
End With
End If
Next sh
End Sub