Hej,
Jeg antager at dine kolonnebogstaver er fiktive (x og y)
Denne kodestump skal placeres under selve arket som skal have funktionen.
Ved ændring af værdien i kolonne A, vil koden notere datoen i samme række i kolonne B
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Then
Range("B" & Target.Row) = Format(Date, "dd.mm.yyyy")
End If
End Sub
Er dette sådan nogenlunde som du ønsker

//Allan