You need a worksheet change function.

Private Sub worksheet_change(ByVal target As Range)

If target.Column = Columns("M").Column Then
target.Offset(0, target.Value) = Date
target.Offset(0, target.Value).NumberFormat = "MM/DD/YY"
End If
End Sub


"Hannes" wrote:

Hi there,

I would need some support please on how to program in VBA the following task:
In column M of any row the user chooses in a drop down list (values 1 to 6)
one value, at which simultaneously the current date (of selection) is copied
into column N to S of the same row.
E.g.: User selects value 1 of drop down list in M3 so the date of today e.g.
08/20/08 is copied into N3. At the 08/25/08 the user selects value 2 in M3 so
the date is copied into O3. At the 08/29/08 the user selects value 3 in M3 so
the date is copied into P3. And so on. Maximum of the date history would be
S3 as there are 6 values to select. This should work for all rows whereas the
columns stay the same.

Many thanks for any support.
Hannes