Datum weergeven waarop een cel (in een bepaalde kolom) het laatst is aangepast

[DragonDrummer]

Beste mede excellers/VBA-ers,

Ik heb het volgende probleem: ik heb een bepaalde kolom, zeg kolom A, waar ik waardes invoer en ik wil in kolom B de datum waarop ik een cel het laatst heb aangepast. Dus bijvoorbeeld, als ik cel A10 vandaag aanpas, wil ik dat cel B10 8 mei 2018 aangeeft.

Nu heb ik hiervoor een VBA-code gevonden, namelijk:

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A10").Address Then Range("B10") = Date
End Sub

Het punt is, dit werkt alleen voor een specifieke cel, namelijk "A10" en ik wil dat dit automatisch voor de hele kolom A (en B) geldt en niet dat ik deze code 100 keer in moet voeren voor elke aparte rij.

Ik zoek dus naar een VBA-code waarmee ik, als ik een willekeurige cel in kolom A verander ik in dezelfde rij in kolom B de datum krijg, zodat ik een overzicht krijg wanneer de cellen in A het laatst aangepast zijn.

Kunt u mij hiermee helpen?

Bijvoorbaad dank!

 

[Gijsbert1]

If Not Intersect(Target, Range("A:A")) Is Nothing Then........

 

[Timshel]

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Target.Offset( ,1) = Date
 End Sub

 

[DragonDrummer]

Werkt helemaal mooi! Thnx :thumb: