Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Target.Offset(0, -1) = Now End Sub
hvilket ser ud til at gøre det. Kan du bekræfte dette?
Og hvordan giver jeg point, skylder vidst nogle til dig :)
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Now 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.