Datum aanpassingen bijhouden

[WillemVG]

Dagdag,

Ik zou graag het moment bijhouden waarop bepaalde cellen werden aangepast in een excelbestand.
Ik heb reeds het volgende:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Registratie").Range("A1") = Now
End Sub

Dit houdt slechts de wijziging in A1 van het desbetreffende werkblad in de de cel A1 van het tabblad Registratie
Ik wil dit graag uitbreiden, zodat als er op A2 iets aangepast wordt, het moment wordt geregistreerd op A2 van het tabblad registratie,
als op A3....

Kan iemand bovenstaande code in die zin uitbreiden?
Zou een grote hulp zijn!

hartelijk dank,
Willem

 

[VenA]

Sheets("Registratie").Cells(Rows.Count, 1).End(xlUp).Offset(1) = Now

 

[WillemVG]

Superhard bedankt voor je snelle reactie.

Het doet ongeveer wat het moet doen.
Het enige probleem is dat die, telkens eentje opschuift; dus ook als ik een aanpassing ofzo doe in een cel hogerop (die dus reeds ingevuld was), dan wordt er telkens een nieuwe regel aangemaakt op de 'Registratie'-tabblad.
De bedoeling zou zijn dat elke regel mooi blijft corresponderen.

vriendelijke groet,
Willem

 

[VenA]

Zo dan?

Sheets("Registratie").Range(Target.Address) = Now

 

[WillemVG]

geniaal, Vena!
Hartelijk dank.