Datum automatisch eintragen
11.09.2003 18:02:14
georg
würde gerne wenn ich eine Zelle ausfülle, in der nächsten Spalte das Datum automatisch einfügen lassen. Aber mit meinem Makro s.u. wird natürlich bis zur Spalte i alles ausgefüllt. Wie kann ich das besser machen.
mfg
georg
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = [a1:i1500]
If Application.Intersect(Target, Bereich) Is Nothing Then Exit Sub
If Target <> "" Then Target.Offset(0, 1) = Now _
Else: Target.Offset(0, 1) = ""
End Sub