Hej Kim,
I forlængelse af exAHSactos svar, poster jeg en kode du kan bruge.
Høreklik på den fane du vil tilføje funktionen til.
Vælg 'Vis programkode'
Indsæt nedenstående kode
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Range("B1") = Now
End If
End Sub
Denne kode skal naturligvis tilrettes dine ønsker.
I dette eksempel sker der følgende:
Laver du en ændring i området A1:A10, vil dato og klokkeslet blive noteret i B1
Hvis du i stedet ønsker at bruge enkelte celler i stedet for et område, kan følgende benyttes
I dette eksempel er det A2, B2 og C2 som udløser dato-klokkeslet i B1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2,B2,C2,")) Is Nothing Then
Range("B1") = Now
End If
End Sub
Håber du kan bruge ovenstående
//Allan