Änderungsdatum einer Zelle mitschreiben
08.03.2006 09:02:12
Enrico
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 5 And Target.Column = 2 Then Range("C5").Value = Date
If Target.Row = 6 And Target.Column = 2 Then Range("C6").Value = Date
If Target.Row = 7 And Target.Column = 2 Then Range("C7").Value = Date
If Target.Row = 8 And Target.Column = 2 Then Range("C8").Value = Date
If Target.Row = 9 And Target.Column = 2 Then Range("C9").Value = Date
If Target.Row = 10 And Target.Column = 2 Then Range("C10").Value = Date
If Target.Row = 11 And Target.Column = 2 Then Range("C11").Value = Date
If Target.Row = 12 And Target.Column = 2 Then Range("C12").Value = Date
If Target.Row = 13 And Target.Column = 2 Then Range("C13").Value = Date
If Target.Row = 14 And Target.Column = 2 Then Range("C14").Value = Date
.
..
...