automatische Berechnung aus- und einschalten

Code für das ausschalten:

Option Explicit

Sub automatische_Berechnung_ausschalten()
    Application.Calculation = xlManual
End Sub



Code für das einschalten:

Option Explicit

Sub automatische_Berechnung_einschalten()
    With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
End Sub