Manuelle Berechnung
08.02.2006 13:10:48
Otto
ich weiß dieses Thema wurde hier schon öfters besprochen, aber ich habe dennoch ein Frage.
ICh weiß ja, dass man mit:
Private Sub Worksheet_Activate()
Application.Calculation = xlCalculationManual
End Sub
Private Sub Worksheet_Deactivate()
Application.Calculation = xlAutomatic
End Sub
Die automatische Berechnung an und ausschalten kann.
Was ich aber bräuchte ist genau die entgegengesetzte Richtung. Das 1 Tabellenblatt soll ausschließlich dann automatisch berechnet werden, wenn man das Blatt aufgerufen hat. Wenn man nicht auf dem Blatt ist muss die automatische Berechnung auf DIESEM Blatt ausgeschalten sein. Auf allen anderen brauche ich die automatische Berechnung natürlich.
Gibt es hierzu einen Lösungsvorschlag? Ich kopiere auch von mir aus in jede Arbeitsmappe einen eigenen Code, da sich die Anzahl der Blätter nicht erhöht ist das kein Problem.
MfG
Steve