436 Aufrufe
Gefragt in Tabellenkalkulation von jonesm Mitglied (191 Punkte)
Hallo,

über ein Makro, welches in der personal.xlsb abgelegt ist formatiere
ich Seiten und befülle Kopf- und Fusszeilen vor. personal.xlsb ist
ausgeblendet.

Das Makro ist ja eigentlich relativ simpel. Trotzdem dauert es im
Vergleich zu anderen Makros sehr lange, bis es ausgeführt ist
(mehrere Sekunden).

Weiß jemand woran das liegen kann?

Vielen Dank und beste Grüße
Thomas



Sub DIN_A4_Hoch()
'
' DIN_A4_Hoch Makro
'
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "Druckdatum: " & "&D"
.LeftFooter = "Name, Bereich"
.CenterFooter = "S. " & "&P" & "/" & "&N"
.RightFooter = "&""Arial,Standard""&8&Z" & Chr(10) & "&F"
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FitToPagesWide = 1
End With

End Sub

2 Antworten

0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo Thomas,

am Makro kann das nicht liegen.
Bei mir funktioniert es tadellos und dauert maximal 1 sec.

Gruß
Rainer
0 Punkte
Beantwortet von
Hallo Thomas ^^

Das Objekt ist von Natur aus langsam!

Gruss Nighty

Extrem schneller!

Erstellt von Thomas Ramel
Sub xl4PageSetup()
Dim Foot_L As String
Dim Foot_C As String
Dim Foot_R As String
Dim head As String
Dim foot As String
Dim pLeft As String
Dim pRight As String
Dim Top As String
Dim Bot As String
Dim hdng As String
Dim grid As String
Dim h_cntr As String
Dim v_cntr As String
Dim orient As String
Dim paper_size As String
Dim pscale As String
Dim pg_num As String
Dim pg_order As String
Dim bw_cells As String
Dim quality As String
Dim head_margin As String
Dim foot_margin As String
Dim Notes As String
Dim Draft As String
Dim pSetUp As String
With ActiveSheet.PageSetup
Foot_L = .LeftFooter
Foot_C = .CenterFooter
Foot_R = .RightFooter
End With
'head = """"""
foot = """&L&8&F, &A, &D, &T&C" & Foot_C & "&R" & Foot_R & """"
pLeft = "0.69"
pRight = "0.38"
Top = "0.47"
Bot = "0.47"
hdng = "False"
grid = "False"
h_cntr = "True"
v_cntr = "False"
orient = 1
paper_size = 9
pscale = "True"
pg_num = ""
pg_order = ""
bw_cells = ""
quality = ""
head_margin = "0.37"
foot_margin = "0.27"
Notes = "False"
Draft = "False"
pSetUp = "Page.Setup(" & head & "," & foot & "," & pLeft & ","
pSetUp = pSetUp & pRight & "," & Top & "," & Bot & "," & hdng & ","
pSetUp = pSetUp & grid & "," & h_cntr & "," & v_cntr & ","
pSetUp = pSetUp & orient & "," & paper_size & "," & pscale & ","
pSetUp = pSetUp & pg_num & "," & pg_order & "," & bw_cells & ","
pSetUp = pSetUp & quality & "," & head_margin & ","
pSetUp = pSetUp & foot_margin & "," & Notes & "," & Draft & ")"
Application.ExecuteExcel4Macro pSetUp
End Sub
...