Einzelnes Blatt nicht neu berechnen
08.04.2005 09:34:07
Bourtscheidt
ich habe zu folgendem Problem recherchiert, aber noch nicht die richtige Lösung gefunden.
Problem: Ich habe eine Mappe. In Tabelle1 befinden sich Basisdaten, die ständig aktualisiert werden. In Tabelle2 finden Berechnungen statt, die aber sehr komplex sind und sich auf eine Spalte in Tabelle1 beziehen.
Erfolgt eine Änderung in Tabelle1 werden die Berechnungen in Tabelle2 ausgeführt, was zu Zeitverzögerungen führt.
Frage: Gibt es eine Möglichkeit, die verknüpften Berechnungen in Tabelle2 per VBA so zu steuern, daß ich erst durch Drücken von F9 nach Aktivierung des Blattes Tabelle2 die Neuberechnung starte?
Schön wäre es, wenn in Tabelle1 die automatische Berechnung bestehen bleibt, weil hier die Formeln nicht so rechenaufwendig sind.
Ich habe die folgenden Lösungen gefunden, die aber nicht richtig funktionieren.
Entweder wird in beiden Tabellen gar nicht gerechnet oder nach F9 in Tabelle1 wird auch in Tabelle2 neugerechnet. Die Neuberechnung in Tabelle2 wird korrekt ausgeschaltet, wenn ich sie aktiviere. Aber das ist ja nicht ganz das, was ich suche.
Hat jemand eine Idee?
Viele Grüße
Volker aus Köln
Private Sub Worksheet_Activate()
With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
End Sub
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub