mit folgenden Makro hier aus dem Forum wird der Zustand der Berechnungsoption gemerkt.
Sub Berechnung_auf_Manuell_setzen()
GMS
End Sub Sub Alter_Zustand_Herstellen()
GMS True
End Sub
Public Sub GMS(Optional ByVal Modus As Boolean = False)
Static lngCalc As Long
With Application
If Not Modus Then lngCalc = .Calculation
If Modus And lngCalc = 0 Then lngCalc = -4105
.Calculation = IIf(Modus, lngCalc, -4135)
End With
End Sub
Wie kann man das auf die Bearbeitungs- und Statusleiste anwenden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre