Automatisk indsættelse af klokken (tidspunkt)

=NU()
=Now()

Du kan så formatere cellen, så den viser det ønskede

Det virker ikke

Jeg skriver i feltet B4
=NU(B3) (men den giver meig en fejl)

Jeg skriver B3 i parantesen fordi at der skal stå i B4 hvad tid jeg indtastet datoen i B3


HVad skal jeg gøre

Indtast flg i formellinien i B4:

=HVIS(B3<>"";NU();"")

Hvis du bruger en engelsk version skal NU() erstattes med NOW()

hvis det er B3, B4 der drejer sig om så indsæt denne kode i arkets eget kodemodul (højreklik på arkfanen, vælg "Vis Programkode" og indsæt den.
Når celle B3 ændres indsættes dato og tid i B4

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
    Range("b4") = Now
End If
End Sub

hej bak > Tak for skiverne, de har allerede været til stor hjælp :o)

Du fik dem jo lidt forsinket, men nu ved jeg da at de er nået frem og posten ikke har "lånt" dem :-)

Det virker nu men lige en ting. Jeg vil gerne hvade det således at jeg indtaser en værdi i B5 og så skal tidspunktet stå i C5 når jeg så skriver en værdi i B6 skal tidspunktet stå i C6 (så de står ved siden af hinanden lodret hele vejen ned i gennem arket) hvordan gør jeg det

Og en anden ting jeg vil kun havde at den skal angive klokkeslættet og ikke dato, hvordan kommer min færdige kode til at se ud

I C6:
=HVIS(B6<>"";NU();"")

Og træk formlen ned gennem regnearket ved at vælge cellen og træ i krydset i nederste højre hjørne.

Kan du ikke skrive den op som bak har gjordt

Beklager - Men jeg kan ikke VBA i Excel.

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