Excel Macro knop maken die datum invoert

[miicker]

Hallo,
Ik zou graag in een cel (bijvoorbeeld: E2) de datum van vandaag willen invoeren door op een knop te drukken.
Het liefst zou ik de knop dan in E2 plaatsen, en wanneer er op de knop wordt gedrukt, dan wordt de knop vervangen met de datum (en eventueel tijd) van vandaag.

Deze mag niet variabel zijn (oftwel, als ik er gister op geklikt heb, zou er vandaag de datum van gister moeten staan).

Zou iemand mij kunnen vertellen hoe dit moet, of er een voor me maken?

Mag met macro's of met Active X

Met vriendelijke groet,
Mickey

 

[ExcelAmateur]

miicker,

Zet deze code achter de knop.

Private Sub CommandButton1_Click()
  Range("E2").Value = Date
  CommandButton1.Visible = False
End Sub

 

[spaarie]

Snap niet echt wat je ermee wilt bereiken, maar voeg een Active X knop in en dubbelklik erop,
voeg dan deze in

Private Sub CommandButton1_Click()
CommandButton1.Visible = False
[E2] = Date
End Sub

 

[spaarie]

Meeep, meeep! ExcelAmateur was wat sneller...
en de code's lijken ook gelukkig niet op elkaar..

 

[miicker]

Bedankt, werkt goed, alleen staat er als tijd 0:00 ipv de tijd van vandaag, de datum klopt overigens wel

 

[ExcelAmateur]

Maak er dan dit van

Private Sub CommandButton1_Click()
  Range("E2").Value = Date & " " & Time
  CommandButton1.Visible = False
End Sub

Zet de cel eigenschap op d-m-jjjj u:mm:ss

 

[Jezet]

Hoi Micker,

Wat je misschien nog wel beter kunt doen is om niet een knop te maken maar dat je bij iedere wijziging in het sheet de systeem datum+tijd in E2 zet, zonder knop.

 Private Sub Worksheet_Change(ByVal Target As Range)
Range("E2") = Now
End Sub

Deze code niet in de module zetten, maar in de editor van het werkblad.\

Groet,
Jeroen

 

[Cobbe]

Wat denk je dat er gebeurt bij iedere wijziging in het werkblad?

 

[Jezet]

Hoi Cobbe,

Opdracht niet juist gelezen. In E2 moet de datum/tijd dat de knop voor het laatst gebruikt is staan. Dan is mijn oplossing niet juist.

Groet,
Jeroen

 

[miicker]

Maak er dan dit van

Private Sub CommandButton1_Click()
  Range("E2").Value = Date & " " & Time
  CommandButton1.Visible = False
End Sub

Zet de cel eigenschap op d-m-jjjj u:mm:ss

bedankt dit is wat ik bedoel!