Automatisk tid

i B1
=nu()

Problemet, er at =Nu() altid ændres efter aktuelle dato, så hvis du mener at datoen, skal blive stående, som den er, så skal vi over i kode.

Indsæt dette i arkets kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("a1") Then
        Target.Offset(0, 1).Value = Time()
    End If
End Sub


Hvis det er flere celler, der er tale om, skal koden lige rettes til.

Der sker ikke noget når jeg skriver i celle A1

Har du lagt koden i Arkets kodemodul? Altså højreklikpå Arkfanen. Vælg Vis kode?

Ja det har jeg, jeg mø hellere præcisere at jeg skriver målingen ind i celler i kolonne G, hvorefter at tiden skal vises i den tilsvarende celle i kolonne P.

Men det var ikerk helt det, du skrev i det oprindelige spørgsmål .-)

Prøv med

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

Formeter P-kolonnen som tid.

Der sker ikke noget

Det lyder godt nok mærkeligt, hvis Change hændelsen ikke bliver udløst, når du skriver i G-kolonnen. Det virker helt upåklageligt hos mig. Prøv evt.- at sende dit regneark til jan snabela kronsell dot net.

Problemet ligger i at du ingen P-kolonne har, fodi alle cellerne fra K til og med X er flettet sammen. P-kolonnen ligger midt i dette område, men optræder ikke selvstændigt, så der er faktisk ingen steder, at makroen kan skrive.

Hvis du vil have det skrivet i Remarks, skal koden se sådan ud:

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

men så kan der ikke stå andet i den rubrik.

jkrons, tak for hjælpen nu virker det

jkrons send et svar og du får pointene

Et svar.