Ich habe für einen User 2 Schaltflächen für das Ein- und Ausschalten der automatischen Berechnung gemacht:
Private Sub CommandButton1_Click()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Private Sub CommandButton2_Click()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Jetzt würde ich gerne eine Wenn-Bedingung definieren, so dass z.B. in Zelle A1 eine 1 steht, wenn auf Automatisch eingestellt ist und eine 0 wenn manuell eingestellt ist.
Kann mir jemand sagen, wie ich das hinkriege?
Vielen Dank und Gruss
Ben