Layout mit VBA steuern
04.10.2005 10:49:01
joko0803
ich habe hier ein Problem mit der Steuerung des Layouts für alle Arbeitsblätter einer Arbeitsmappe.
Ich habe ein Makro, das in einer Makro-Arbeitsmappe abgelegt ist. Das Seitenlyout wir auch ganz toll erstellt, so lange die Tabellen in der gelichen Arbeitsmappe hinterlegt sind.
Immer wenn das Makro aber Blätter einer anderen Arbeitsmappe formatieren soll wir die Formatierung NUR IM ERSTEN BLATT ausgeführt.
Kann mir von euch jemand einen Tipp geben wie ich das beheben kann, denn die Regel ist, dass das Makro Layout einer anderen Arbeitsmappe steuern soll?
Danke und Gruß
John
Private Sub Layout()
For blatt = 1 To Sheets.Count - 1
Sheets(blatt).Select False
Next blatt
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.17)
.RightMargin = Application.InchesToPoints(0.17)
.TopMargin = Application.InchesToPoints(0.7)
.BottomMargin = Application.InchesToPoints(0.44)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.17)
.CenterFooter = "&8Seite &P von &N"
.CenterHorizontally = True
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Zoom = 65
End With
Cells(5, 1).Select
ActiveWindow.DisplayGridlines = False
Sheets(Sheets.Count).Select
End Sub