Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

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)
   
to 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?
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to 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.
to 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

Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to 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

Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Textbezug, wenn Daten gleich [geteilt] Summen addieren wenn Datum gleich ExcelElch 2 40 20.03.2017, 11:22
Letzter Beitrag: Rabe
  Summen addieren wenn Datum gleich ExcelEchse 4 123 09.03.2017, 16:05
Letzter Beitrag: Peter
  WENN Funktion: Entweder Datum oder bestimmter Wert Ahnunglos 8 195 16.02.2017, 11:32
Letzter Beitrag: Ahnunglos
  Zählen nach Datum wenn/oder sash! 28 577 03.02.2017, 14:05
Letzter Beitrag: sash!
Question Wenn ZelleA=Datum, dann=Tabelle/Spalte/Zelle Royle 3 160 28.01.2017, 20:23
Letzter Beitrag: Ego
  ActiveX Steuerelement Bild - Dateigröße nimmt drastisch zu Abitus 1 159 10.12.2016, 06:12
Letzter Beitrag: schauan
  relative Makroaufzeichnung aktiviert oder nicht DietmarD 2 226 16.10.2016, 08:29
Letzter Beitrag: DietmarD
  Wenn Spalte E nicht leer dann Datum in Spalte O VBA BadHabiit 4 436 20.09.2016, 14:49
Letzter Beitrag: BadHabiit
  wenn Zelle leer dann nichts wenn aber Zelle Datum enthält dann nickita 1 340 03.09.2016, 06:03
Letzter Beitrag: schauan
  Benötige dringend Hilfe / wenn Formel Datum LiRo 2 321 23.08.2016, 09:24
Letzter Beitrag: LiRo

Gehe zu:


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