1.4k Aufrufe
Gefragt in Tabellenkalkulation von
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

4 Antworten

0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
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
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
ich vermute mal den Code hast Du unter der Tabelle. Da beim Steuerelement kein Bezug zu einer Tabelle ist?

Gruß Hajo
0 Punkte
Beantwortet von theblackbird_ Mitglied (605 Punkte)
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 ®
0 Punkte
Beantwortet von
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
...