Checkbox verursacht Fehler
16.03.2004 13:06:46
Lorenz
wieso löst dieser Code Fehler in Excel.exe aus?????
Is er total falsch????????????
Wer kann mir helfen?
Bitte Code bei Bedarf ändern
Zur Info: Im Workbook gibt es an die 45 Sheets, eine CheckBox1 gibt es in Sheet " Sammlung, Daten, Werte, Summen"
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Range("B3").Value = "Automatische Berechnung ist ausgeschaltet"
Application.Calculation = xlManual
ElseIf CheckBox1.Value = True Then
Range("B3").Value = "Automatische Berechnung ist eingeschaltet"
Application.Calculation = xlAutomatic
End If
Range("B5").Select
End Sub
Danke im Voraus.
Grüße Lorenz