Workbook_SheetBeforeDoubleClick

[Smurfke72]

Beste mensen,


Voor jullie éénvoudig voor mij een begin.

Ik heb zelf een stukje code proberen samenstellen om in kolom K te dubbel klikken waarna het uur en de datum van dit moment zou moeten komen.
Tot hiertoe is het nog niet gelukt....
Hierbij de code:



Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Target.Column = 9 Then
ActiveCell.FormulaR1C1 = "=NOW()"
End If
End Sub

Iemand een idee?
Alvast bedankt voor de moeite!

Mvg Bert

 

[HSV]

Kolom K = 11.
Moet er echt een formule komen die steeds veranderen gaat bij een herberekening?, anders.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 If Target.Column = 11 Then Target = Now
 Cancel = True
End Sub

Cancel = true tegen openen van cel bij invoegen now().

 

[Smurfke72]

Hey HSV (Harry),

Werkt perfect!
Dank voor het werk dat je er hebt ingestoken.

Groeten.
Bert