Supportnet / Forum / Tabellenkalkulation

Hallo, wenn ich die checkbox anklicke, sollen diverse Zellen summiert werden. Folgenden alten Thread habe ich modifiziert aber leider klappt es nicht. https://supportnet.de/threads/202930 So sieht´s bei mir aus: [quote]Private Sub CheckBox1_Click() If CheckBox1 = True Then Range("c29") = Range("=sum(b6:b9)") End If End Sub[/quote] Wie gesagt, es funktioniert leider nicht, dass nach dem Anklicken der Checkbox in der Zelle c29 die Funktion =sum(b6:b9) ausgeführt wird. Fehlermeldung: Die Methode "range" für das Objekt "worksheet" ist fehlgeschlagen. Da meine Programmierkenntnisse eher rudimentärer Art sind, komme ich alleine leider nicht weiter. Wäre über Hilfe sehr froh. Danke ersma

Hallo Underground,

versuchs mal so:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("C29").FormulaLocal = "=Summe(B6:B9)"
End If
End Sub

MfG

JöKe

Nachtrag:

Falls C29 bei deaktivierter CheckBox leer sein soll den Code so:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("C29").FormulaLocal = "=Summe(B6:B9)"
Else
Range("C29").ClearContents
End If
End Sub

Ich danke vielmals - es funktioniert

• Checkbox
• Makroausführung unterbrechen bis Berechnung beendet
• Checkbox
• Gültigkeitsprüfung in Abhängigkeit einer CheckBox
• wert aus mysql, wert = 1 setze checkbox checked bei wert= 2 checkbox 2