PageSetup, Seite einrichten
14.05.2003 10:28:53
Berns Kaiser
z.B.:
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$AS$24"
.Orientation = xlLandscape
.Zoom = 100
.LeftHeader = "mein excel blatt"
.LeftFooter = "&F" & Chr(10) & "&D"
.CenterFooter = "&A"
.RightFooter = "Seite &P von &N"
End With
aktualisiert Excel nach jeder einzelnen Änderung den Blattaufbau was dazu führt, daß der oben angef. Programmausschnitt ewig lange Zeit benötigt.
Hat jemand eine Lösung den Vorgang zu beschleunigen?