VBA Zelle leeren wenn Checkbox deaktiviert wird

Question

Hallo!

ich möchte dass in eine Zelle (B5) das heutige Datum geschrieben
wird wenn ich eine CheckBox (1) anklicke.
Der Zelleninhalt soll aber gelöscht werden wenn ich die Checkbox
deaktiviere.

Das ist was ich bisher habe:

Dim strDatum As Date
Dim zelle As String
strDatum = Date
zelle = "B5"
If CheckBox1.Value = True Then Range(zelle).ClearContents
If Range(zelle) = "" Then Range(zelle) = strDatum
End Sub

Leider funktioniert es nicht so wie ich mir das wünsche.
Habt ihr eine Idee?

Beste Grüße,
critchm

Answer 1

nur wenige sehen was nicht geht.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Link zur Datei wäre nicht schlecht.

Gruß Hajo

Answer 2

ich vermute mal den Code hast Du unter der Tabelle. Da beim Steuerelement kein Bezug zu einer Tabelle ist?

Gruß Hajo

Answer 3

Moin,

Ich wuerde das wie folgt erledigen wollen:

Private Sub CheckBox1_Click()
Static rngBereich As Range
Set rngBereich = ActiveSheet.Range("B5") '!!Zelle hier anpassen!!
If CheckBox1.Value = True Then 'Wenn Haken drin
rngBereich = Date 'Datum in Zelle
Else 'sonst (kein Haken)
rngBereich.ClearContents 'Inhalt in Zelle loeschen
End If 'Ende Wenn
Set rngBereich = Nothing 'Zellverweis "zerstoeren"
End Sub

Cu
TheBlackBird ®

Answer 4

Hallo,

Hajo, ja den Code habe ich bei Tabelle 1. Mir war nicht einmal bewusst dass das
eine Rolle spielt, danke!

Blackbird, so habe ich es übernommen, danke, funktioniert prima!

Beste Grüße,
critchm