macro sluit excel

[SUVERMO]

Beste leden,

wie kan mij helpen?
Waarom werkt de macro niet juist als er iets verandert in A2:J2, excel sluit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2: J2")) Is Nothing Then
If Target <> Target.Offset(-1, 0) Then
Target = "NIHIL"
End If
End If
End Sub

 

[HSV]

Zonder enableevents komt de code in een eindeloze loop.

Schakel die uit en weer in met code.

 

[emields]

probeer het zo eens.

 

[SUVERMO]

Bedankt HSV, het is gelukt

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2: J2")) Is Nothing Then
Application.EnableEvents = False
If Target <> Target.Offset(-1, 0) Then
Target = "NIHIL"
End If
Application.EnableEvents = True
End If
End Sub

 

[HSV]

:thumb: