Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert sind; Die von diesem Forum gesetzten Cookies düfen nur auf dieser Website verwendet werden und stellen kein Sicherheitsrisiko dar. Cookies auf diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Die Updates sind abgeschlossen. Bitte meldet eventuelle Bugs und Auffälligkeiten im entsprechenden Forum.
Sollte das Loginfenster nicht sichtbar sein, ist es unten links. Entweder Ihr loggt Euch dort ein oder löscht den Browsercache und versucht es noch einmal.


Datum wenn Steuerelement aktiviert
#1
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


Angehängte Dateien Thumbnail(s)
   
Antwortento top
#2
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?
Antwortento top
#3
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.
Antwortento top
#4
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

Antwortento top
#5
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

Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste