Neuberechnung erzwingen
22.02.2005 11:14:13
Klausi
Ich versuche nnerhalb eines Makros die Neuberechnung von Zellen eines
Worksheets zu erzwingen, bevor ich die Werte des Worksheets in ein anderes
Workbook kopiere.
Meine bisherigen Versuche
Application.Calculation = xlCalculationSemiautomatic
MsgBox "vor dem speichern"
'Calculate
' Application.CalculateFull
SendKeys "^%{F9}", True
' Worksheets(1).UsedRange.Calculate
'Application.CalculateBeforeSave = True
'Application.ThisWorkbook.Worksheets("sheet1").Names("arr_formula_area").RefersToRange.Calculate
' HIER WIRD GESPEICHERT UM AUF JEDEN FALL DIE WERTE ZU AKTUALISIEREN;
Application.ActiveWorkbook.Save
MsgBox "nach dem speichern"
Application.Run Range("WORKSPACE.REFRESH")
haben in den verschiedenen möglichen Kombinationen nicht zuverlässig funktioniert.
Nicht zuverlässig bedeutet: Mal klappt es mal nicht.
Wenn es nicht klappt, zeichnet es sich dadurch aus, dass die Werte der Zellen
mit #NV kopiert werden.
Wenn man von Hand F9 drückt werden die Werte problemlos aktualisiert.
Hat jemand eine Idee, wie ich das hinbekomme?
Ciao
Klauso