Timestamp na dubbelklikken op cel

[adile]

Goedenavond,

Ik wilde graag weten of iemand een code heeft om de huidige tijd in een cel te plaatsen door te dubbelklikken op de betreffende cel.
dit moet dan gelden voor de cellen H12 t/m Q21 in het huidige werkblad.

Ik heb gezocht op verschillende forums maar kon het antwoord hierop niet vinden.

Alvast bedankt

Gr Adile

 

[Cobbe]

Zet dit achter je werkblad:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("H12:Q21")) Is Nothing Then
Target.Value = Date
End If
End Sub

 

[edmoor]

Zet net voor de End Sub ook Cancel = True om te voorkomen dat de cel in edit mode komt.

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("H12:Q21")) Is Nothing Then Target.Value = Date
    Cancel = True
End Sub

 

[VenA]

Met Date de huidige tijd?

Target =Now

of

Target = Format(Now, "hh:mm:ss")

 

[Cobbe]

Wakkere VenA.
Wat een nachtje goede slaap verhelderend kan werken.

 

[edmoor]

Inderdaad. VenA is wakker. Nu TS nog

 

[HSV]

Datum en tijd weer splitsen?

target = format(time,"hh:mm:ss")

Of als je de cellen vooraf de juiste eigenschap meegeeft is dit al voldoende.

target = time

 

[adile]

Allen,

Hij werkt allen mijn dank voor alle input


Gr adile