huidig uur als cel ingevuld wordt

[yentldj]

dag allemaal

ik zou graag de huidige tijd automatisch willen laten invullen als ik een cel invul.
dus bijvoorbeeld dat de tijd verschijnt in cel a3 als ik cel a4 invul.

kent er iemand de formule hiervoor?

alvast bedankt

 

[plongske]

Deze in A3

=ALS(A4>0;NU();"")

maar als de tijd vast moet staan vrees ik dat dit via Vba moet gebeuren.

 

[AlexCEL]

Oplossing middels VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$4" Then
 Target.Offset(-1, 0).Value = Time
End If
End Sub

 

[yentldj]

hoe open ik vba?

 

[OctaFish]

<Alt>+<F11>.

 

[yentldj]

dit is waar ik het heb ingezet en gesaved hebt maar het lukt niet echt

groetjes

 

[AlexCEL]

Hier in een voorbeeldje:

Bekijk bijlage vb_tijd.xlsm

 

[yentldj]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$7" Then
Target.Offset(0, -1).Value = Time
End If
End Sub

dat is de juiste formule in vba maar ik zou dit over een hele kolom willen hebben tot beneden als dit kan

groetjes

 

[AlexCEL]

Ik vermoed dat je zoiets zoekt:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C7:C107")) Is Nothing Then
     Target.Offset(0, -1).Value = Format(TimeValue(Now), "hh:mm")
    End If
End Sub

In bestandje: Bekijk bijlage vb_tijd_2.1.xlsm

Verzoek: plaats voortaan gelijk een representatief voorbeeld om meteen tot een goed werkende oplossing te komen!

 

[yentldj]

bedankt voor de hulp en zal ik doen in het vervolg