Wanneer cel gevuld wordt automatisch datum invullen

[ronald1986]

Mensen,

Ik zou graag willen dat wanneer ik in cel B1 een waarde typ er in cel A1 automatisch de datum wordt gezet van de huidige dag en dat deze datum daarna ook vast staat. Weet iemand hoe ik dit kan doen?

Mvg, Ronald

 

[Niels28]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
ActiveSheet.Protect Password:="1234", userinterfaceonly:=True
If Target.Column = 2 Then
If Target.Offset(, -1).Value = "" Then
With Target.Offset(, -1)
.Value = CDate(Date)
.Locked = True
End With
End If
End If
Application.EnableEvents = True
End Sub

Niels

 

[ronald1986]

Niels, heb dit geprobeert maar het werkt eigenlijk niet. Ik heb hem gekopieerd in de worksheet en in een module maar wanneer ik iets in cel B1 typ verschijnt er niks in cel A1...

Waarom staat er trouwens een password in de code?

Mvg, Ronald

 

[ronald1986]

Sorry, heb het nog een keer geprobeerd maar het werkt nu inderdaad. Heb de code in het betreffende tabblad gezet.
Werkt prima! thnx Niels!

 

[Niels28]

Als hij werkt zet je de vraag dan op opgelost.
Het password staat erin omdat je vroeg de datum vast te zetten.

Niels