Re: Calculate aktivieren/deaktivieren
27.11.2002 14:17:47
Udo RiHü
Hallo Kirsten,
hasst dich dein Chef? Wie es aussieht nimmt deine Mappe langsam galaktische Dimensionen an. Eine Mappe auf alle möglichen Ereignisse reagieren zu lassen frisst natürlich einen Haufen Performance.
Aber zu deiner Frage.
Du kannst die automatische Berechnung natürlich abschalten.Private Sub Workbook_aktivate()
Application.Calculation=xlManual
End Sub
Beim Deaktivieren der Mappe solltest du das aber wieder einschalten, damit andere Mappen automatisch berechnet werden.
Private Sub Workbook_deaktivate()
Application.calculation=xlautomatic
End Sub
Du kannst auch nur einzelne Sheets neu berechnen lassen. Bau einfach in dein Makro am Ende die Zeile
ActiveSheet.Calculate
ein. Dann wird das Blatt nach einem Makro-Durchlauf neu berechnet. Auch einzelne Zeilen oder andere Bereiche gehen. in einer Worksheet_Change-Prozedur z.B.
Activesheet.Rows(target.Row).Calculate
berechnet die Zeile der geänderten Zelle neu.
Ich hoffe, ich konnte dir ein bisschen helfen.
Gruss Udo