Tijd automatisch invullen eenmalig

[Bikertje1980]

Hallo,

Wie kan mij helpen met het volgende probleem.
Ik vul af en toe een waarde in een cel in, ik wil dan dat op dat moment in de cel ernaast de actuele tijd wordt geplaatst dat kan met NU()
Maar als ik een waarde in de volgende regel invul wordt de eerste tijd ook weer aangepast wat niet de bedoeling is.
Dus hoe kan ik bij elke invoer van een waarde per regel automatisch de tijd van invoer ernaast plaatsen die niet meer aangepast dmv herberekening mag worden.

Hopelijk heeft iemand hier een oplossing voor.

 

[edmoor]

Dat kan met dit achter je werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 1 And Target.Column = 2 Then
        If Target.Offset(, 1) = "" Then
            Application.EnableEvents = False
            Target.Offset(, 1) = Time()
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[Bikertje1980]

Hallo Edmoor,

Bedankt voor jou snelle reactie, ik heb de code achter het werkblad gezet maar bij invoer van een nieuwe waarde in kolom B worden de tijden van eerder invoer toch nog ge-update.
zie bijlage.

 

[edmoor]

Je moet natuurlijk wel die functies uit kolom C verwijderen.

 

[Bikertje1980]

Je hebt helemaal gelijk, mijn foutje sorry.
Bedankt wederom.

Fijne dag.

 

[edmoor]

Geen probleem.
Ook een fijne dag gewenst