VBA - Druck-Layout läuft langsam

Hallo alle zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Boris
Dieses Makro steht in "Mappe_A.xls"
Option Explicit

Private Sub Layout()
    Dim blatt As Integer
    Dim tWkb As Workbook
    Set tWkb = Workbooks(ActiveWorkbook.Name)
    With tWkb
        For blatt = 1 To Sheets.Count - 1
            .Sheets(blatt).Select False
        Next blatt
        With tWkb.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
        .ActiveSheet.Cells(5, 1).Select
        ActiveWindow.DisplayGridlines = False
        .Sheets(Sheets.Count).Select
    End With
End Sub

Und wird aus der AKTIVEN "Mappe_B.xls" hiermit aufgerufen
Option Explicit

Sub demo()
    Application.Run "Mappe_A.xls!layout"
End Sub

Also bei mir funktioniert das für alle markierten Sheets ;-)
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

VBA - Druck-Layout läuft langsam

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread