Application.calculation lässt sich nicht abschalte
31.10.2003 11:18:56
Falko
Ich habe schon in der Recherche geschaut, doch ohne Erfolg.
Derzeit arbeite ich an einer Arbeitszeitverwaltung, in der ich mehrere Funktionen geschrieben habe.
Für die Jahre 2003 bis 2010 existiert je ein Worksheet. In diesen steht jede Zeile für einen Tag des Jahres vom 01.01. bis zum 31.12.
In jeder dieser Zeilen sind in 4 Spalten je eine unterschiedliche Funktion, die u.a. tägliche Arbeitszeit und Gesamtsaldo aus allen Tagen des Jahres berechnen. Macht also für acht Jahre reichlich funktionen, die auch immer fleißig durchlaufen werden, was unmengen an Zeit kostet.
Jetzt habe ich versucht die automatische Berechnung mit 'Application.Calculation = xlCalculationManual' am Beginn und 'Application.Calculation = xlCalculationAutomatic' am Ende jeder Funktion auszuschalten. Doch eine Überprüfung brachte zum Vorschein, dass gar nicht auf manuell umgeschaltet wird, sondern der Status immer auf -4105 = xlCalculationAutomatic stehen bleibt.
Es werden also munter alle Berechnungen durchgeführt.
Wer mir helfen kann, dem sage ich schon jetzt vielen Dank.