Auto dato når der skrives i celle

En makro kan gøre dette.
Skal der anvendes beskyttelse af celler?

Igen kommer du til undsætning supertekst :)

Bruger flg. kode

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Target.Offset(0, -1) = Now
End Sub


hvilket ser ud til at gøre det. Kan du bekræfte dette?

Og hvordan giver jeg point, skylder vidst nogle til dig :)

jeg ønsker selvfølgelig at datoen er statisk, så den ikke ændres hvergang jeg åbner filen

Jeg ser lige på koden..

Jeg kan lægge svar på dit spørgsmål vedr. "det langesomme regneark". Dette skal du så blot acceptere.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Now
End Sub

store-morten

ved at tilføje "" Then Target.Offset(0, -1)

gør det så datoen statisk?

If Target.Offset(0, -1) = ""

Gør at datoen kun skrives hvis celle er tom.