Office: Mappen-Eigenschaft "Berechnung Manuell/Automatisch"

Hallo EXCEL-Gemeinde,

Welche VBA-Mappen-Eigenschaft gibt mir zurück, ob automatische oder manuelle Berechnung eingestellt ist ?
(BerechnungsStatus = Worksheets(1).EnableCalculation
gibt es nicht her !?)

Dank an Euch im Voraus und mit besten Grüssen einen GUTEN RUTSCH ins 2011er Jahr *Smilie !

Werner

:)

 

Hi Werner,

vielleicht hilft das weiter:

Code:

 

Danke Gerhard,

es hilft mir nicht wirklich weiter, das von dir empfohlene Codierung
stellt die Eigenschaft "Berechnung Manuell/Automatisch" ein,
aber ich möchte ermitteln, wie sie gerade einstellt ist.

Ciao Werner

 

HAllo Werner

Suchst du sowas?
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Dim Wie_Steht_Die_Berechnung As Long

Private Sub Workbook_Activate()
MsgBox Application.Calculation
Wie_Steht_Die_Berechnung = Application.Calculation
Application.Calculation = xlCalculationManual
End Sub

Private Sub Workbook_Deactivate()
Application.Calculation = Wie_Steht_Die_Berechnung
End Sub

ransi

 

Danke ransi,

ein Versuch wars wert, aber egal was einstellt ist, manuell oder automatisch,
es wird immer auf

Wie_Steht_Die_Berechnung = Application.Calculation
Wie_Steht_Die_Berechnung = WAHR


zurückgegeben

Ciao Werner

 

Hallo Werner,

dieser Code sollte funktionieren :

Code:

Mit diesen xlCalculation...-Konstanten kann man den Status per VBA auch verändern :

Application.Calculation = xlCalculationAutomatic
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationSemiautomatic

 

Danke "NoNet",

das ist die Lösung

Einen schönen Abend zwischen den Jahren

Ciao Werner