Beim Tabellenblatt verlassen, auto. Berechnung ein
26.03.2004 20:59:50
Oswald
ich hab mir eine Berechnung für meine Arbeitszeit zusammengebastel. Mit vielen Wenn's und eigenen Funktionen.
Ein Tabellenblatt ist zur Dateneingabe vorgesehen.
Jetzt wird Excel ziemlich langsam wenn ich in diesen Datenblatt was eingeben will.
Schalte ich die automatische Berechnung aus geht es wieder.
Jetzt wollte ich über folgenden Code
<pre>
Private Sub Worksheet_Activate()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub</pre>
~f~
die automatische Berechnung ausschalten wenn ich dieses Tabellenblatt aktivie
und mit diesem
~f~
<pre>
Private Sub Worksheet_Deactivate()
With Application
Application.Calculation = xlAutomatic
Application.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub</pre>
wieder einschalten. Nun werden aber teilweise die anderen Berechnungen bzw. Funktionen nicht mehr ausgeführt.
Mache ich das ganze von Hand. geht alles.
Hoffe sehr mir kann ein guter Geist helfen.
Danke euch
Oswald