Datum plaatsen in cel

[H4rdje]

Ik zoek de formule om de huidige datum in cel A2 te laten verschijnen (en daar te laten staan) nadat in cel A1 de waarde "X" wordt ingevoerd. Alle voorstellen of tips zijn welkom! :d

 

[Cobbe]

Zet dit in Thisworkbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 With Sheets("blad1")
  If UCase(.Cells(1, 1)) = "X" Then
   .Cells(1, 2) = Date
  End If
 End With
End Sub

 

[edmoor]

Ik denk dat TS bedoelt dat een datum die daar wordt geplaatst niet meer mag wijzigen:

If UCase(.Cells(1, 1)) = "X" And .Cells(1, 2) = "" Then