also eigentlich kein richtiges Problem da mein Makro ja funktioniert. Trotzdem eine Frage zu folgendem Effekt.
Habe eine recht umfangreiche Arbeitsmappe (ca. 4MB) mit mehreren Blättern und zwischen 500 und 1000 Zeilen. Von Zeit zu Zeit werden Zeilen oder ganze Zeilen blöcke eingefügt.
Mit dem folgenden Makroteil füge ich in Bereichen wieder alle Formate und Formeln ein.
Sub Fillin()
Sheets("EQUIPMENTLIST").Select
'Einfügen der Berechnungsformeln
Application.Goto Reference:="Formula_PL"
Selection.FillDown
Application.Goto Reference:="Formula_TC_DS"
Selection.FillDown
Application.Goto Reference:="Formula_TC_RL"
Selection.FillDown
Application.Goto Reference:="Formula_BE_MU"
Selection.FillDown
Application.Goto Reference:="Formula_BE_E"
Selection.FillDown
Application.Goto Reference:="Formula_BE_I"
Selection.FillDown
Application.Goto Reference:="Formula_CIV_CON"
Selection.FillDown
End Sub
Die Ausführung dieser paar Zeilen dauert auf meinem Rechner ca. 40 s. Das nervt ein wenig.
Bei einer vergleichbaren Datei (ca. 3 MB) mit mehreren Bereichen (10 Stck.) (ca. 2000 Zeilen) läuft quasi das gleiche Makro in 3 s ab.
Wie kommen diese Unterschiede zustande?
Kennt jemand so einen Effekt?
Wie kann man das Makro beschleunigen?
Vielleicht hat ja jemand einen Tip. Würde mich sehr freuen.
Gruß
Peter