Opgelost VBA Code datum en tijd automatisch laten vernieuwen bij een celwaarde die veranderd?

[Gielleke25]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AY5")) Is Nothing Then
    Range("D57").Value = Now()
End If
End Sub

Hallo iedereen,

Kan iemand helpen aub?
Ik heb ik Cel AY5 een somwaarde die steeds wijzigt bij invullen van punten.
Is zou graag in Cel E57 een datum en uur hebben die steeds wijzigt wanneer de soms is gewijzigd.

Maar mijn code werkt nog niet volledig? Kan iemand mij bijsturen aub?
Super bedankt!
Mvg, Gielleke

 

[edmoor]

Plaats een voorbeeld bestandje.

 

[Gielleke25]

Deze is toegevoegd...
Bedankt!

 

[edmoor]

Het Change event wordt niet getriggerd door een formule.
Dan dus zo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C7:AY55")) Is Nothing Then
        Range("D57").Value = Now()
    End If
End Sub

 

[Gielleke25]

Het Change event wordt niet getriggerd door een formule.
Dan dus zo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C7:AY55")) Is Nothing Then
        Range("D57").Value = Now()
    End If
End Sub

Super bedankt voor de snelle hulp en info.
Weer iets bijgeleerd

 

[HSV]

Of:

Private Sub Worksheet_Calculate()
 Range("D57").Value = Now()
End Sub