Wie verhindere ich, dass Excel das Arbeitsblatt rendert, wenn mein Makro es berechnet?

Question

Mein Makro aktualisiert eine große Tabelle mit Zahlen, aber es läuft sehr langsam, da Excel das Ergebnis berechnet, während es es berechnet. Wie höre ich auf mit Excel, um die Ausgabe zu rendern, bis das Makro fertig ist?

Answer 1

Ich benutze beide vorgeschlagenen Lösungen:

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 
... 
... 
... 
Application.Calculation = xlCalculationAutomatic 
Application.ScreenUpdating = True 

Answer 2

Sie können die automatische Berechnung im Optionsdialog ausschalten, sie wird so eingestellt, dass sie nur berechnet, wenn Sie F9 drücken.

Answer 3

Application.ScreenUpdating = False

Und natürlich ist es wieder auf True wieder eingestellt, wenn Sie fertig sind, auch wenn ein Fehler ausgelöst wird. Beispiel:

Public Sub MyMacro 
    On Error GoTo ErrHandler 
    Application.ScreenUpdating = False 
    ... do my stuff that might raise an error 
    Application.ScreenUpdating = True 
    Exit Sub 
ErrHandler: 
    Application.ScreenUpdating = True 
    ... Do something with the error, e.g. MsgBox  
End Sub 

Answer 4

Aufbauend auf Joe und SEER (dies nutzt alte Syntax, so dass es mit VBA von Office 2000 kompatibel ist):

On Error Goto AfterCalculation 
Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 
... 

AfterCalculation: 
Application.Calculation = xlCalculationAutomatic 
Application.ScreenUpdating = True 

Answer 5

Ich bevorzuge auch die beiden vorgeschlagenen Lösungen, , sondern auch die vorherige Berechnungsmodus des Benutzers zu halten.

Für diese spezielle Anwendung dies kein großes Problem sein könnte, aber es ist in der Regel am besten Praxis haben die Benutzer ihre Einstellungen wiederhergestellt nach dem Eingriff beendet ist, lassen:

Application.ScreenUpdating = False 
PreviousCalcMode = Application.Calculation 
Application.Calculation = xlCalculationManual 
    ... 
    ... 
    ... 
Application.Calculation = PreviousCalcMode 
Application.ScreenUpdating = True 

NB. Es wäre auch Ihre Zeit wert, eine Fehlerbehandlung einzufügen, die Application.ScreenUpdating startet, sollte ein Fehler in Ihrem ansonsten brillianten Code auftreten;) Wenn mir der Speicher recht tut, zeigt Excel keine Fehlermeldung, wenn ScreenUpdating = false ist. Etwas wie folgt aus:

Sub DoSomeThing 


On Error Goto DisplayError 

Application.ScreenUpdating = False 
PreviousCalcMode = Application.Calculation 
Application.Calculation = xlCalculationManual 
    ... 
    ... 
    ... 
Application.Calculation = PreviousCalcMode 
Application.ScreenUpdating = True 

Exit Sub 

DisplayError: 
Application.Calculation = PreviousCalcMode 
Application.ScreenUpdating = True 

MsgBox Err.Description 
End 'This stops execution of macro, in some macros this might not be what you want' 
    '(i.e you might want to close files etc)' 
End Sub