Neu Berechnen
18.03.2003 15:41:44
chrissi
bin gerade bei der Geschwindigkeitsoptimierung meiner Liste. Nachdem ich das Problem mit der Maske gelöst habe, lasse ich vor dem Ausführen des Aufrufes der Maske, das Berechnungsverfahren auf manuel stellen. Nun will ich, das wenn die Maske geschlossen wird, dass das Berechnungsverfahren wieder auf Automatisch gestellt wird.
Private Sub ButtonNeueDatenEingeben_Click()
Application.Calculation = xlManual
Range("b8").Select
SendKeys "%nm"
SendKeys "%N"
End Sub
Chrissi
Anzeige