Indsæt automatisk tid i celle

sæt denne i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [B1] = Now
End Sub

Hej
rigtig godt det skal bare helst fortsætte helt ned til A100 og B100
Mvh/Henrik Cichosz

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

.

Hej
Mange tak for hurtigt svar.
gider du kigge på den her også http://www.eksperten.dk/spm/843386

Hej
Jeg kan ikke få det til at fungere med:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1: A100")) Is Nothing Then Target.Offset(0, 1) = Now
End Sub
men vis jeg laver en almindelig funktion med =NU() kommer tiden godt nok, men når jeg så går ned til A2 og B2 så skifter alle tider.
den tid jeg får i B1 når der skrives i A1 skal blive stående når jeg går vidre til A2 og B2 hvor der kommer en ny tid.

Koden virker udmærket, har du den i det ark den skal virke på.

måske
Jeg ind-sætter et modul puter koden der i
eller hvordan

ÅÅÅe ja sorry je har fundet udaf det, nej jeg hvde lagt et forkert.

;-)