Excel: Mit Kontrollkästchen Werte kopieren

[Matin.123456789]

Hallo,

leider kenne ich mich in VBA kaum aus. Ich will durch aktivieren eines Kontrollkästchens zwei Werte aus dem Tabellenblatt "Daten" in dass Tabellenblatt "Kalkulation" kopieren.
Meine Idee war:

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
Wert = Sheets("Daten").Range("D19,F19").Value

Sheets("Kalkulation").Range("G16,G20").Value = Wert


Else
Sheets("Kalkulation").Range("G16,G20").Value = 0
End If
End Sub

Leider funktioniert das nicht. Würde mich freuen wenn mir da jemand hilft.

 

[rocketworm]

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then

Sheets("Kalkulation").Range("G16").Value = Sheets("Daten").Range("D19").Value
Sheets("Kalkulation").Range("G20").Value = Sheets("Daten").Range("F19").Value

Else
Sheets("Kalkulation").Range("G16,G20").Value = 0
End If
End Sub

 

[Matin.123456789]

Danke