Hej
Jeg er ved at lave en event macro for excel, men kan simpelthen ikke få det til at makke ret. Jeg skal have excel til automatisk at smide en dato ind i kolonne A, når der bliver indtastet noget i kolonne B.
Lige pt har jeg:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, B As Range, Inte As Range, r As Range
Set A = Range("A:A")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In Inte
If r.Offset(0, 1).Value = "" Then
r.Offset(0, 1).Value = Date
End If
Next r
Application.EnableEvents = True
End Sub
Men her går det galt, fordi indtaster jeg noget i A, bliver datoen smidt ind i kolonne B. Er der nogen der kan hjælpe med at rette denne macro til? Har prøvet og prøvet, men det giver enten bare fejl eller smider datoen under det jeg skriver.
--