Automatisch tijd invoeren bij handmatige invoer kolom

[MarcellusExcel]

Een hele goedemorgen,

Ik heb een vraagje betreffende Excel:

Ik wil graag, wanneer ik bij A1 een getal invoer, bij B1 automatisch de huidige tijd krijgen.

Crtl+Shift+; is al redelijk handig, maar ik wil het echt automatisch krijgen.
=NU() werkt ook niet omdat deze zich automatisch aanpast wanneer je hem bijvoorbeeld doorvoerd.
Daar heb ik dus helemaal niks aan.

Weten jullie misschien of dit mogelijk is?

Hoor het graag! Bedankt!

Met vriendelijke groet,
Marc van Eekelen

 

[Ad Becude]

Is dit wat je zoekt?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Cells(Target.Row, 2).Value = Now
Application.EnableEvents = True
End If
End Sub

Kolom B opmaken als tijd: 13:30

 

[Warme bakkertje]

Of

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Target.Offset(, 1).Value = Format(Time, "hh:mm")
End Sub

 

[MarcellusExcel]

Foutmelding bij de code

Hey goedemorgen!

Ik probeerde de code in te voeren maar ik krijg letterlijk de foutmelding:
"De opgegeven naam is strijdig met een bestaand project, een bestaande module of een bestaande objectbibliotheek".
Als naam neem ik dan gewoon "Worksheet_Change".

Heeft iemand een idee hoe dit komt? Ik heb een Excel van 2003 en ik heb beide codes geprobeerd.

Met vriendelijke groet,
Marc van Eekelen:d

 

[Warme bakkertje]

Deze code hoort thuis in de bladmodule v/h blad waarin de bewerking moet uitgevoerd worden, niet in een standaardmodule.
Rechtsklik op de tab v/h betreffende blad en selecteer Programmacode weergeven en plak hier de code.

 

[MarcellusExcel]

Bedankt!

Hij werkt perfect!

Hartstikke bedankt, jullie zijn geweldig!

Met vriendelijke groet en succes verder nog met het forum!
Marc:thumb: