Gem dato for indtastning i celle

indsæt i arkets kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B80")) Is Nothing Then Exit Sub
Cells(1, 1) = Now
End Sub

Cells(1,1) = A1  ret selv til hvor dato skal skrives og formater sellen i rette format

mon ikke lige der skal testes for om det er tekst også,Mu virker den på hele B kolonnen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    If Not IsNumeric(Target) Then
        Cells(Target.Row, "A") = Now ' samme række som cellen med tekst, ret "A" til den kolonne det datoen skal skrives i
    End If
End Sub

Cool, tak! Kan i ikke oprette nogle svar...

ok hvis du fortæller hvilken en der dur :-)

De fungere jo begge... :o)

Valgte dog at bruge kabbak's version, da den lille validering passede perfekt til det jeg var igang med...

et svar ;-))

ok :-)