VBA werkt slechts één keer daarna moet het bestand weer opnieuw geopend worden.

[Robert Smidt]

Beste Helpmijers,

Ik heb een vba-code die in principe doet wat hij moet doen, maar wanneer ik het nog een keer uitvoer werkt deze niet. Pas wanneer ik het bestand opnieuw opstart doet deze het weer één keer. Wat is er fout aan deze code?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False


If Not Intersect(Range("a1:k10"), Target) Is Nothing Then
    If ActiveCell.EntireRow.Range("d1") = "Ja" Then '
        If MsgBox("Rij je per jaar meer dan 500 km prive?", vbYesNo + vbQuestion) = vbYes Then
            ActiveCell.EntireRow.Range("e1") = "Ja"
        Else
            ActiveCell.EntireRow.Range("e1") = "Nee"
        End If
    End If
End If
End Sub

Alvast heel erg bedankt.

Met vriendelijke groeten,
Robert

 

[OctaFish]

Een voorbeeld bestandje werkt zó veel beter

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("a1:k10"), Target) Is Nothing Then
    Application.EnableEvents = False

    If lcase(cells(target.row,4))="ja" Then cells(target.row,5)= iif(MsgBox("Rij je per jaar meer dan 500 km prive?", vbYesNo + vbQuestion) = vbYes,"Ja","nee")

    Application.EnableEvents = True
  End If
End Sub

 

[edmoor]

Je moet wel Application.EnableEvents weer op True zetten voor de End Sub.

Edit:
Zie net dat snb dat ook al had aangegeven.

 

[Robert Smidt]

Het werkt perfect

Heren, heel hartelijk bedankt, de code werkt perfect :thumb: