tidsstempling af inddata

Højreklik på arketsfaneblad og vælg Vis Programkode, og indsæt nedenstående kodestump

:-) Flemming

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
    Set rCell = Range(\"A:A\")
   
    If Not Intersect(Target, rCell) Is Nothing Then
        If Target <> \"\" Then
            Target.Offset(0, 1).FormulaR1C1 = \"=Now()\"
            Target.Offset(0, 1) = Target.Offset(0, 1).Value
        Else
            Target.Offset(0, 1).ClearContents
        End If
    End If
   
Set rCell = Nothing
End Sub

Hvis du ikke ønsker at bruge VBA-kode kan du godt bruge bruge =IDAG() formlen i kolonne B alligevel, men når du er færdig skal du lige gøre følgende:

Marker alle de nye datoer og tryk KOPIER.
Højeklik et sted i det markerede område og vælg INDSÆT SPECIEL.
Sæt et hak ved \"VÆRDIER\" og tryk \"OK\".

Hehe Jan >> så er det vist lige så nemt at indtaste dato og klokkeslet manuelt :-)

>>> flemming - overdrivelsens mester ;-)

Næppe, prøv at forestil dig f.eks. 200 indtastninger med både dato og klokkeslet!
Hvor hurtigt kan du indtaste dem? Jeg kan nemt \"INDSÆTTE SPECIEL\" på under 10 sekunder!

Forøvrigt er din kode ikke særlig smart, hvis man længere nede i arket skal bruge kolonne A og B til andre formål.
Da er min løsning noget mere fleksibel :-)

Hehe hvem overdriver nu ;-)

Jan, du ved jo godt, at linien Set rCell = Range(\"A:A\") blot kan ændres, således der står (\"A1:A30) eller et andet interval, som ønskes benyttet, så brug du blot A kolonnen til andre formål, hvis du lyster.

Jeg ser ikke noget specielt flexibilt i din løsning, men den kan da bruges, hvis man er til det manuelle :-)

God grundlovsdag :-)