Application.Calculation = xlCalculationManual
06.03.2006 14:50:57
Bernd
ich lese makrogesteuert Daten aus einem Verzeichnis aus. Aufgrund zahlreicher SVerweise und eingeschaltetem "Automatisch berechnen" wird die Tabelle sehr langsam aufgebaut. Schalte ich auf "Manuell berechnen" flutscht das ganze flott. Ich würde aber gerne beim Start des Auslesemakros die Berechnung aus und am Ende wieder einschalten.
Nur funktioniert das bei mir leider nicht.
Hier mein Makro-Auszug:
Sub CommandButton3_Click()
On Error Resume Next
i = MsgBox("Wollen Sie die Daten aktualisieren? ", 4 + 32, "Daten auslesen")
If i = 7 Then Exit Sub 'wenn "Nein", dann Ende
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
'Range("C2").ClearContents
Set j = ActiveSheet.Range("B4:aa258").Cells
For Each zelle In j
(das Makro geht noch viel weiter)
etc.etc.