Wie dieses Makro in Excel schneller machen?

Computer: Software & Programmierung Visual Basic
#1

Folgend ist ein Makro aufgelistet. Hat jemand eine Idee, wie ich dieses noch schneller machen kann?

Sub dr_20_letzten_Prfg_0_4()
’
’ dr_20_letzten_Prfg_0_4 Makro
’

’
Application.Goto Reference:=„zdr_letzte_20_Prfg_0_4“
ActiveSheet.PageSetup.PrintArea = „$Gw$347:blush:Hi$372“
With ActiveSheet.PageSetup
.LeftHeader = „“
.CenterHeader = „“
.RightHeader = „“
.LeftFooter = „&8&Z&F“
.CenterFooter = „“
.RightFooter = „Seite &amp:stuck_out_tongue_winking_eye: von &N Seiten“
.LeftMargin = Application.InchesToPoints(0.826771653543307)
.RightMargin = Application.InchesToPoints(0.433070866141732)
.TopMargin = Application.InchesToPoints(0.551181102362205)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintSheetEnd
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 80
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = False
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = „“
.EvenPage.CenterHeader.Text = „“
.EvenPage.RightHeader.Text = „“
.EvenPage.LeftFooter.Text = „“
.EvenPage.CenterFooter.Text = „“
.EvenPage.RightFooter.Text = „“
.FirstPage.LeftHeader.Text = „“
.FirstPage.CenterHeader.Text = „“
.FirstPage.RightHeader.Text = „“
.FirstPage.LeftFooter.Text = „“
.FirstPage.CenterFooter.Text = „“
.FirstPage.RightFooter.Text = „“
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Vielen Dank schon mal im Voraus für eure Hilfe!

#2

Hallo
ich kenne mich in Makros nicht aus.
Gruss Paul

#3

ja, lass alle leeren Zuweisungzeilen einfach weg. Zum Beispiel:
.LeftHeader = „“
und lies in der Hilfe nach, was die Standard-Werte für die Sachen sind, z.B. bei
.PrintHeadings = False
Auch solche Zuweisungen soltest Du weg lassen, wenn sie dem Standard entsprechen.

#4

Hallo,
mein Schwerpunkt ist nicht die Programmierung.

Beste Grüße
H. Schuster

#5

Hallo,

PageSetup ist von Haus langsam in der Ausführung da ggf. umfangreiche Neuberechnungen des Tabellenblatts (Seitenumbrüche) erforderlich sind.

Du solltest den Code auf die Anweisungen reduzieren, die Code hier anpassen muss (Druckbereich, Kopf-/Fusszeilen, Zoom, ???). Viele Einstellungen, die im Code stehen müssen ja gar nicht ausgeführt werden. weil sich der Wert nicht ändert.
Manchmal bringt auch die Reihenfolge der Anweisungen etwas Zeitgewinn, aber da sehe ich jetzt nichts.

Gruß
Franz

#6

Hallo
Sorry kann leider nicht helfen
Xaver

#7

Hi,

Da kann ich leider nicht helfen, arbeite selten mit Macros.

Gruß Gina

#8

Leider keine ösung.
Kp

#9

Hi Colla86,

ich hatte schon mal das gleiche Problem, die Druckeinstellungen halten tierisch auf. Ich hab sie nach ein paar Optimierungsversuchen dann wieder rausgeschmissen (ich konnte damit leben).
Kurz: ich habe keine Lösung, bin aber an einer interessiert, wenn du was bekommst.

Gruß
Tobi

Folgend ist ein Makro aufgelistet. Hat jemand eine Idee, wie
ich dieses noch schneller machen kann?

Sub dr_20_letzten_Prfg_0_4()
’
’ dr_20_letzten_Prfg_0_4 Makro
’

’
Application.Goto Reference:=„zdr_letzte_20_Prfg_0_4“

[…]
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Vielen Dank schon mal im Voraus für eure Hilfe!

#10

Hallo,
da kann ich Dir nicht helfen.
BFR