0 leden en 1 gast bekijken dit topic.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Value <> "" Then Target.Offset(0, 4) = DateEnd Sub