worksheet_change crash

[ericabt]

hallo,

Ik heb een excel gemaakt met een macro, die prima loopt als ik hem run vanuit een knop, maar crasht als ik hem laat lopen via de worksheet_change optie.
Wat doe ik verkeerd?

Alvast bedankt.

Bekijk bijlage worksheet_change_crash.xlsm

 

[Cobbe]

Deze aanpassing zal wel soelaas bieden:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Application
    .ScreenUpdating = False
    .EnableEvents = False
Dim Teller As Integer
Dim AantalWaarschuwingen As Integer

Teller = 0
AantalWaarschuwingen = 4

Range("a8:a11").ClearContents
    For i = 1 To AantalWaarschuwingen
        If Range("a2").Offset(i, 0).Value = 1 Then
        Teller = Teller + 1
        Range("a7").Offset(Teller, 0).Value = Range("a2").Offset(i, 1).Value
        End If
    Next i
    .ScreenUpdating = True
    .EnableEvents = True
End With
End Sub

Je moet namelijk het Event even op pauze setten want anders geraak je in een eindeloze loop.

 

[snb]

Het is ook verstandig de uitvoering van de macro te beperken, zodat niet elke wijziging in het werkblad deze macro aktiveert:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column & Target.Row > 16 Then Exit Sub
    Application.EnableEvents = False
    
    With Range("a3:a6")
        sn = .Value
        For j = 1 To UBound(sn)
           sn(j, 1) = IIf(sn(j, 1) = 1, .Resize(1).Offset(j - 1, 1).Value, "")
        Next
        .Offset(5) = sn
    End With
    
    Application.EnableEvents = True
End Sub

 

[ericabt]

@Cobbe, bedankt. De loop had ik even over het hoofd gezien
@SNB, klopt. Bedankt voor de tip.

Topic gaat op solved