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
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
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.