Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe einen Fragenkatalog programmiert, wobei jede Frage Punkte zählt bzw. hat jedes Kontrollkästchen ein Wert hinterlegt. Ich habe es mit folgender Makroanweisung gemacht: Besispiel: Range("A5").Value = 4 Nun mein Problem, er zählt zwar den Wert dazu, jedoch möchte ich, dass wenn das Kästchen nicht angeklickt ist, er den Wert wieder rausnimmt. Ist soetwas möglich? MFg Suse

Hi Suse,

di verwendest ein kontrollkästchen aus der Steuerelement-Toolbox?

Private Sub CheckBox1_Click()
    If CheckBox1 Then
        Range("A5") = 4
    Else
        Range("A5") = ""
    End If
End Sub

Bis später,
Karin

Sorry, die komplette Anweisung bei mir lautet:

Sub Kontrollkästchen43_BeiKlick()
Range("A5").Value = 1
End Sub

Ich geh einfach wenn ich das Kästchen erstellt habe auf: "Makro zuweisen"!

Ist das damit auch möglich?

MFG Suse

Hi Suse,

da du ein Kontrollkästchen aus der Formular-Symbolleiste verwendest, muss der Code anders lauten, da diese Elemente direkt als Objekt angesprochen werden müssen

Sub Kontrollkästchen43_BeiKlick()
    Dim cbKontrolle As CheckBox
    Set cbKontrolle = Worksheets("Tabelle1").CheckBoxes("Kontrollkästchen 43")
    If cbKontrolle = 1 Then
        Range("A5") = 1
    Else
        Range("A5") = ""
    End If
End Sub

cbKontrolle = 1 bedeutet, dass das Köstchen aktiviert ist, hat also nichts mit dem Wert zu tun, der in die Zelle eingetragen werden soll.

Bis später,
Karin

Hey Karin,
super vielen Dank, es funktioniert, hast mir echt sehr geholfen ;-)

LG Suse

• Makro erstellen für Kommentar einfügen
• kann wegen makro nicht drucken - was machen?
• Die Anweisung 0x7df5b5ce