Page Setup
John
ich möchte mein PageSetup etwas schneller machen.
Anstatt einer Schleife, die alle Blätter durchläuft, würde ich gerne in folgendem Code:
Sub Makro3()
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Sheets("Tabelle1").Activate
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.Zoom = 80
End With
End Sub
den Inhalt des Array dynamisch füllen. D.h. immer wieder auf den Inhalt (alle Blätter) der gesamten Arbeitsmappe anpassen.
Ich wäre für einen Vorschlag sehr sehr dankbar.
Gruß
John
Anzeige