Neuberechnung nicht abbrechen
26.05.2021 12:06:33
Markus
in einem meiner Berichte wird nach Änderung einer Zelle mittels Drop-Down-Auswahl eine Neuberechnung angestoßen, sowie auf zwei Tabellenblättern der Autofilter zur Darstellung der Daten erneut angewendet.
Hierfür berechnet Excel nach Änderung im Drop-Down Feld das Ganze in drei Schleifen - so weit so gut.
Allerdings sind manche User recht ungeduldig und Excel unterbricht die Neuberechnung, sobald mit der Maus irgendwohin geklickt wird. Entsprechend werden im Anschluss nur unvollständige Daten im Bericht angezeigt, die zu Fehlinterpretationen führen.
Dieser Abbruch geschieht ohne weitere Meldung. Selbst wenn im VBA-Code eine Message-Box am Ende des Sub steht :( Somit gibt es dann per Message Box die Meldung das alles geklappt hat - und dennoch sind die Daten nicht sauber durch gerechnet. (Auch das Einbinden von Application.Calculation = xlCalculationAutomatic macht keinen Unterschied)
Gibt es daher eine Möglichkeit, die Berechnung definitiv bis zum Ende durchlaufen zu lassen?
Besten Dank!
Markus
PS: Früher konnte gefühlt eine (Neu-)Berechnung in Excel nur mittels Escape-Taste abgebrochen werden, oder?
hier mein Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$F$8" Then
Sheets("Overview by Sales Rep").Select
ActiveSheet.Unprotect
ActiveSheet.AutoFilter.ApplyFilter
ActiveSheet.Protect
Sheets("Overview by Sales Office").Select
ActiveSheet.Unprotect
ActiveSheet.AutoFilter.ApplyFilter
ActiveSheet.Protect
MsgBox "Calculation completed"
End If
End Sub
>