Datum bei Eingabe.
19.09.2003 12:39:17
Jürgen Fischer
kurz vor Feierabend eine kurze Frage:
Es soll bei Eingabe auf einem Tabellenblatt in einer Zelle (z.B.A1) automatisch das Datum und die Uhrzeit einetragen werden.
Für eine Zelle ist mir klar:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Else
Target.Offset(0, 1).Value = Date
End If
End Sub
Kann mir bitte jemand helfen?
Gruß an Alle
Jürgen
Anzeige