automatische range value

[MiekeDM]

Ik wil dat in een excell spreadsheet wanneer één specifieke cel (bv. A3) in een andere cel (bv. A7) automatisch de datum en het exacte tijdstip van die verandering worden uitgeschreven... Met andere woorden: als iemand de inhoud in cel A3 wijzigt, moet automatisch in de cel A7 de functie NU() uitgevoerd worden... Iemand enig idee hoe ik dat kan doen?

 

[Ingrid B]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" Then [A7] = Now
End Sub

Kopieer de macro naar de werkblad-code

 

[MiekeDM]

Inderdaad, die code lijkt te werken (al bedankt daarvoor). Er is enkel nog een klein probleempje: blijkbaar mag enkel de eerste keer dat de celinhoud verandert (als hij van leeg naar ingevuld gaat) de tijd opgeslagen worden... Hoe doe ik dat dan precies?

 

[Ingrid B]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" And Target <> "" And _
    [A7] = "" Then [A7] = Now
End Sub