Tijd automatisch bij invullen specifieke cel

[Bert007]

Hallo,

Btereft; Excel en VBA.
Graag wil ik in een bepaalde cel automatisch de tijd laten verschijnen zodra ik in een andere specifieke cel, of een klein cellenbereik, een waarde invul. Dus de waarde is niet belangrijk want dat kan alles zijn. Wel met VBA en geen formule.

Alvast bedankt!

Gr. Bert

 

[VenA]

bv zo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Target = "" Then Target.Offset(, 1) = "" Else Target.Offset(, 1) = Now
End If
End Sub

 

[HSV]

Of:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then Target.Offset(, 1) = IIf(Target = "", "", Format(Time, "hh:mm:ss"))
End Sub

Of voor een bereik.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
   If Target.Count = 1 Then
        If Target = "" Then
           Target.Offset(, 1) = ""
         Else
           Target.Offset(, 1) = Format(Time, "hh:mm:ss")
        End If
    Else
       Target.Offset(, 1) = ""
  End If
 End If
End Sub