Datum wenn Steuerelement aktiviert

[krax007]

Hallo,
ich habe innerhalb eines Arbeitsblattes mehrer Positionen, die bestellt werden müssen. Zu jeder Position gibt es ein Steuerelement (Häkchen). Klickt man das Steuerelement an (Bestellung erledigt), so soll in der Nachbarzelle dann das heute Datum angezeigt werden. Das Datum soll aber nicht die Funktion =HEUTE() besitzen, sondern den Datumwert beim Setzen beibehalten.

Wie könnte das Makro aussehen, was ich zu jedem Steuerelement schreiben muss?

Vielen Dank für Eure Unterstützung
Beste Grüße

[Rabe]

Hi,

so soll in der Nachbarzelle dann das heute Datum angezeigt werden. Das Datum soll aber nicht die Funktion =HEUTE() besitzen, sondern den Datumwert beim Setzen beibehalten.

hast Du schon mal
Range("O4") = Date()
getestet?

[krax007]

Danke für die Antwort,
wo bzw. wie ist dieser Ausdruck einzutragen? Im Makro des Kontrollkästchens?

Sub Kontrollkästchen66_Klicken()
Range("O4") = Date
End Sub

Sorry, bin da noch nicht so fit drin.

[Rabe]

Hi,

Danke für die Antwort,
wo bzw. wie ist dieser Ausdruck einzutragen? Im Makro des Kontrollkästchens?

vielleicht so:

Option Explicit

Sub test()
   If CheckBox1.Value = True Then
       Range("O1") = Date
   Else
       Range("O1") = ""
   End If
End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 15

[Rabe]

Hi,

Danke für die Antwort,
wo bzw. wie ist dieser Ausdruck einzutragen? Im Makro des Kontrollkästchens?

Dann wird aber bei jedem Klick auf die CheckBox das aktuelle Datum erneut in die Zelle geschrieben.

Sonst vielleicht so:

Option Explicit

Sub test()
   If CheckBox1.Value = True Then
       Range("O1") = Date
   Else
       Range("O1") = ""
   End If
End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 15