[VideoLord]

Probier mal das hier, ansonsten läuft der eingestellte Code immer in einer Schleife, die Excel zum Absturz bringen.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndeSub
    Application.EnableEvents = False
    If ActiveCell.Row = 3 And ActiveCell.Column = 4 Then
    Range("B3").Value = Time
    End If
    If ActiveCell.Row = 3 And ActiveCell.Column = 4 Then
    Range("A3").Value = Date
    End If
EndeSub:
  Application.EnableEvents = True
End Sub

Ausgabezellen:
A3 = Datum
B3 = Uhrzeit

Eingabefeld:
D3 = Eingabe