Aktive Check Box soll Wert in eine Zelle eintragen
26.06.2006 10:12:39
melanie
ich bin totaler VBA-Neuling und versuche eine CheckBox einzusetzen um Werte in eine Zelle eines anderen Tabellenblattes zu schreiben.
Ganz konkret soll bei der Aktivierung der CheckBox in ein Tabellenblatt das zur Berechnung dient in eine Zelle eine 1 geschrieben werden. Versucht habe ich das mit dem folgenden Code, hat aber nicht geklappt:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets("Berechnung").Select
Range("J51").Select
ActiveCell.FormulaR1C1 = "1"
End If
End Sub
Danke im Voraus für Eure Hilfe,
Melanie