Wechseln von xlCalculationAutomatic zu Manual
07.11.2007 22:45:06
xlCalculationAutomatic
In einem Makro rufe ich verschiedene andere Makros auf, welche Daten aus einer Tabelle übernehmen. Um die Rechenleistung nicht zu strapazieren, schalte ich die Berechnung nur ein, wenn ein Zwischenstand erreicht wurde.
Meine Frage: Werden alle Zellen berechnet, bevor wieder auf manuell umgestellt wird oder müsste man irgendwie (wie?) dem Berechnen etwas Zeit geben?
Danke für eine Rückantwort.
Peter
Sub Aktualisierung()
Application.Calculation = xlCalculationManual
Call aktualisiere_Segment
Application.Calculation = xlCalculationAutomatic
Application.Calculation = xlCalculationManual
Call aktualisiere_SegmentRegion
Application.Calculation = xlCalculationAutomatic
End Sub