ich habe im Forum mal ein schönes Beispiel für den Wechsel zwischen manueller und automatischer Berechnung per Button bekommen.Das finde ich jezt leider nicht mehr.Kennt das jemand ?
Gruß
Jutta
Private Sub CommandButton1_Click()
If Application.Calculation = xlAutomatic Then
Application.Calculation = xlManual
CommandButton1.Caption = "manuell"
Else
Application.Calculation = xlAutomatic
CommandButton1.Caption = "automatisch"
End If
End Sub
Private Sub CommandButton1_Click()
If Application.Calculation = xlAutomatic Then
Application.Calculation = xlManual
CommandButton1.Caption = "manuell"
CommandButton1.BackColor = RGB(255, 0, 0)
Else
Application.Calculation = xlAutomatic
CommandButton1.Caption = "automatisch"
CommandButton1.BackColor = RGB(0, 255, 0)
End If
End Sub
Private Sub CommandButton1_Click()
If Application.Calculation = xlAutomatic Then
Application.Calculation = xlManual
With CommandButton1
.Caption = "manuell"
.BackColor = RGB(255, 0, 0)
End With
Else
Application.Calculation = xlAutomatic
With CommandButton1
.Caption = "automatisch"
.BackColor = RGB(0, 150, 0)
End With
End If
End Sub
Private Sub CommandButton1_Click()
If Application.Calculation = xlAutomatic Then
Application.Calculation = xlManual
CommandButton1.Caption = "manuell"
CommandButton1.BackColor = &HFF&
Else
Application.Calculation = xlAutomatic
CommandButton1.Caption = "automatisch"
CommandButton1.BackColor = &H8000000F
End If
End Sub