|
Hi Chris,
dann muss der Wert vorher in eine Variable gepackt werden. Vielleicht ginge es so...
Variable deklarieren, Zellenwert in Variable packen.
Wenn CheckBox aktiviert -> +1 setzen
Wenn CheckBox deaktiviert --> alten Zellenwert wiederherstellen.
Also so in der Art:
dim Wert
Worksheets("Statistik").Activate
Wert = range("B12").value
If CBSchienbeinLinks.Value = True Then Range("B12").Value = Range("B12").Value + 1
If CBSchienbeinLinks.Value = False Then Range("B12").Value = wert
PS: Ich habe die Variable nicht als Typ, z.B. Integer, deklariert, damit nicht direkt eine Fehlermeldung kommt, falls dort mal etwas anderes als eine Zahl oder nichts in der Zelle steht. Sollte das vorkommen, müsstest Du noch weitere Prüfungen machen, damit Fehleingaben vermieden werden - aber ich hoffe, dass kommt bei Dir nicht vor ;)
|