kann in A1 bis A100 einen Eintrag vornehmen und in B1 bis B100 erscheint das Datum, das nicht mehr aktualisiert wird. Möchte nun für C1 bis C100 und D1 bis D100 gleiches erreichen, und zwar in einem Tabellenblatt. Wie kann ich das erreichen?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If Target.Value "" Then
Target.Offset(0, 1).Value = Date
Else
Target.Offset(0, 1).ClearContents
End If
End Sub
Bis dahin
Ludger