Bei Fehler: Calculation und ScreenUpdating umst.
09.03.2007 11:09:46
Peter
Bei umfangreicheren Codes deaktiviere ich das ScreenUpdating und die automatische Berechnung. Was muss ich tun, damit, wenn der Code aussteigt, die Deaktivierung automatisch aufgehoben wird?
Danke für ein Feedback.
Peter
Sub irgendetwas()
Dim a as Integer
Dim b as integer
Dim c as Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'mein Code
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Anzeige