Makro sehr langsam
02.08.2005 10:20:22
Joerg
habe mit Hilfe dieses Forums das folgende Makro geschrieben, funktioniert auch einwandfrei - vielen dank dafür, aber leider ist es sehr sehr langsam, so das das speichern bis zu 1min dauert - woran kann das liegen, was kann ich besser machen?
Vielen Dank, Mfg, Joerg
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.PageSetup.RightFooter = "&""Verdana""&06 Zuletzt gespeichert " & Chr(10) & CStr(Format(Now(), "DD.MM.YYYY")) & " | " & CStr(Format(Now(), "HH:MM")) & " | " & ThisWorkbook.BuiltinDocumentProperties(7)
wks.PageSetup.CenterFooter = "&""Verdana"" &06 "
wks.PageSetup.LeftFooter = "&""Verdana""&06&F" & Chr(10) & "&A"
wks.PageSetup.LeftHeader = "&""Verdana""&06 Firma X | DT LO | vett03"
wks.PageSetup.CenterHeader = "&""Verdana"" &06 "
wks.PageSetup.RightHeader = "&""Verdana""&06 Seite &p" & " von " & "&N"
Next wks
End Sub