Automatisch datum invullen

[Robin]

Klopt, tik onder de code als laatste regel End sub
Voor de zekerheid:

Code: Selecteer alles

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
  If Target.Column = 2 And Target.Value = "werk" Then Target.Offset(0, -1) = Date
If Target.Column = 2 And Target.Value = "" Then Target.Offset(0, -1) = ""
End sub

Top, het is gelukt Ad!
Bedankt voor de hulp!

[Ad Becude]

Dank voor de respons.