Automatisch Berechnen mit Makro.
24.08.2005 09:29:52
Klaus
ich möchte vor einigen Makrooperationen das "automatische berechnen" abschalten. Dazu habe ich mir mit dem Rekorder folgendes aufgezeichnet:
Sub CalculateManual()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Sub CalculateAuto()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Wenn ich diese Makros aufrufe, machen sie auch genau das was ich möchte. Binde ich sie allerdings in ein anderes Makro ein, zB.
Sub Löschen()
If MsgBox("Möchten Sie wirklich alle Einträge löschen?", vbYesNo) = vbNo Then Exit Sub
Call CalculateManual
Range("A6:D5000").ClearContents
Range("H6:H5000").ClearContents
Range("L6:M5000").ClearContents
Call CalculateAuto
Calculate
End Sub
, dann kommt die Fehlermeldung "Die Methode 'Calculation' für das Objekt '_Application' ist fehlgeschlagen"
Was läuft falsch? Muss ich irgendwo einen Haken setzen oder bin ich auf dem ganz falschem Dampfer?
Dank und Gruß,
Klaus M.vdT.