Rechnen ausschalten
10.08.2006 10:38:06
Ralf
ich habe zwei ganz tolle Prozeduren, die mir die
Rechenfunktion aus bzw einschalten.("Bei vielen Matrixformeln sonst
der Tod jeder Performance")
Nun möchte ich gerne "optisch" sehen ob sie nun ein
oder ausgeschaltet ist. Dazu dachte ich mir, wäre es
super, wenn sich die Zelle H1 (bei ausgeschalteter Rechen
funktion) rot (3) färbt und der Text erscheint: Rechnen AUS.
Bei eingeschalteter Rechenfunktion dann wiederum in Zelle
H1 die Farbe grün (4)erscheint mit: Rechnen EIN
Ein
Private Sub CommandButton4_Click()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.CalculateFull
MsgBox ("Die Rechenfunktion ist ausgeschaltet")
End Sub
Aus
Private Sub CommandButton5_Click()
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.CalculateFull
MsgBox ("Die Rechenfunktion ist eingeschaltet")
End Sub
Wäre für jeden Tipp dankbar
Viele Grüße
Ralf
Anzeige