"Automatisch berechnen" per Makro ausschalten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: "Automatisch berechnen" per Makro ausschalten von: Rudi
Geschrieben am: 07.02.2005 08:29:48

Einen wunderschönen Montagmorgen zusammen! ;-)

Ich will beim Start einer Arbeitsmappe unter anderem die Berechnung von automatisch auf manuell setzen:

Private Sub Workbook_Open()
If Application.Calculation = xlAutomatic Then
    Application.Calculation = xlManual
End If
Sheets("Start").Select
With ActiveWindow
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
End Sub


Aber irgendwie funktioniert das nicht. Was mache ich falsch?
Komischerweise funktioniert der Fall andersherum ... also beim
BeforeClose Ereignis die Berechnung von manuell wieder auf automatisch zu setzen
ohne Probleme.

Danke für eure Hilfe!

Gruß
Rudi
 Bild

Beiträge aus den Excel-Beispielen zum Thema ""Automatisch berechnen" per Makro ausschalten"