Macro automatisch huidige tijd in cel

[jolly01]

De uitkomsten in A3 t/m A6 zijn telkens een kopie van A1 die in de betreffende cel als waarde zijn geplakt. Nu wil ik dat als ik nu bijvoorbeeld in cel A7 klik een macro automatisch de huidige tijd in die cel plaatst.

Iemand een idee met welke code?

bvd

 

[Niels28]

macro achter tabblad

Dubbel klik en datum en tijd komt er te staan.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Target.Value = Now()
End If
End Sub

Kan ook met een enkele klik maar als je dan per ongeluk in de cel klik wordt de datum er ook neer gezet. Staat een extra IF in zodat er niks gebeurt als er al een datum in de cel staat.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 Then
If Target.Value > 0 Then Exit Sub
Target.Value = Now()
End If
End Sub

Niels

 

[popipipo]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b3:b100")) Is Nothing Then
        Target.Offset(, -1).Value = Now
    End If
End Sub

Deze doet het zonder dubbelklikken

 

[jolly01]

Waar moet ik de macro plakken?

Blad1 (Logboek)
ThisWorkbook
Module 1

Hoe activeer ik de macro?

 

[popipipo]

Mijn formule moet in Blad1 (Logboek) staan

 

[jolly01]

Bedankt voor je reactie popipipo!

Als ik iets invoer in kolom B krijg ik onderstaande foutmelding.

"De waarde die u hebt ingevuld is ongeldig. Een gebruiker heeft de waarden beperkt die in deze cel kunnen worden ingevoerd."

Weet je een oplossing hiervoor?

bvd

 

[popipipo]

Dat ligt niet aan mijn formule.
Dat gebeurde ook al in het door jou geplaatste bestandje #1

Om het te verhelpen moet je de datavalidatie verwijderen of aanpassen.

 

[jolly01]

Bedankt voor de tip en jullie inbreng.

Vraag opgelost:thumb: