Oplossing gezocht voor tijdregistratie

[Kaasboer]

Hallo,

Voor de aankomst van een stratenloop beschik in over een handscanner. Bij elke klik wordt het borstnummer op een excelblad geregistreerd. Hoe kan ik daar telkens de tijd naast krijgen? Bestaat hiervoor een formule binnen Excel zelf? Let op! Bij elke klik moet de nieuwe tijd worden geregistreerd zonder de vorige tijden te wijzigen...

Met heel veel dank voor een oplossing.

[popipipo]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("a1:a100")) Is Nothing Then
       Target.Offset(, 1).Value = Now()
   End If
End Sub

Met deze vba oplossing moet het lukken.

In kolom A(rij 1 tm 100) een getal tikken en in kolom B komt de actuele tijd te staan.

Gr Willem

[Kaasboer]

Bedankt popipipo

Getest en het werkt.

Groetjes

kaasboer