Clever-Excel-Forum

Normale Version: Datum wenn Steuerelement aktiviert
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
Hi,

(13.04.2015, 10:00)krax007 schrieb: [ -> ]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?
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.
Hi,

(13.04.2015, 11:34)krax007 schrieb: [ -> ]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

Hi,

(13.04.2015, 11:34)krax007 schrieb: [ -> ]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