Office: (Office 2010) Wertübergabe an Application.Calculation funktioniert nicht...

Hallo Community,

Bei einem bestehendem Makro muss ich für die Laufzeit die Berechnung auf automatisch setzen (Application.Calculation = xlCalculationAutomatic). Da meine User für gewöhnlich manuell berechnen (Application.Calculation = xlCalculationManual) lese ich beim Öffnen der Datei (Workbook_Open()) die Berechnungsart aus und möchte beim Schließen des Workbooks (Workbook_BeforeClose(Cancel as Boolean)) den ausgelesenen Wert wieder an Application.Calculation übergeben.

Public oldCalculation As Integer

Private Sub Workbook_Open()

oldCalculation = Application.Calculation

End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Calculation = oldCalculation

End Sub

Wenn ich das ganze in einer neuen Datei mache klappt es wunderbar. Allerdings in meinem bestehenden Makro klappt die letzte Zuweisung Application.Calculation = oldCalculation nicht. Ich hann mit Messageboxen den Inhalt der Variablen ausgeben, der Inhalt von oldCalculation ist immer richtig. Application.Calculation übernimmt ihn einfach nicht.


Ich habe auch eine Schleife gebaut, dass das Makro den Wert solange zuweist, bis es passt, aber auch nach mehrmaliger Zuweisung erfolgt die Wertübergabe nicht...

Die Arbeitsmappe ist zwar geschützt, ich habe aber für die BeforeClose-Funktion die Mappe entsperrt, ohne Auswirkung.

Hat Jemand eine zündende Idee?
Vielen Dank im Voraus!

LG Matthias

 

Hallo Matthias,

ohne mich jetzt weiter damit beschäftigt zu haben, und ohne diese Funktion bisher schon jemals benutzt zu haben, wundert mich die Deklaration "Public oldCalculation As Integer" ein wenig. Müsste die nicht vom Typ "Boolean" sein?

 

Hallo Achim,

Danke für Deine Antwort. Application.Calculation kann insgesamt drei Zustände erreichen: xlCalculationManual (-4135), xlCalculationAutomatic(-4105) und xlCalculationSemiautomatic (2 oder -2, bin mir nicht mehr sicher, da ich es nie verwende). Somit Ganzzahlen und keine logischen Ausdrücke.

Allerdings habe ich auch den Fehler gefunden. Der ursprüngliche Programmierer hat den Ausstieg aus dem Workbook nicht über Workbook_beforeclose() gemacht sondern ist irgendwo anders im Code über Activeworkbook.Close ausgestiegen. Da hätte ich suchen können bis zum Sankt Nimmerleinstag.

Also Fazit:

Mein Code oben funktioniert, wenn er richtig aufgerufen wird.

Vielen Dank nochmals.

Matthias