Excel loopt vast bij macro

[Atwist]

Hallo

Gisteren heb ik een macro gekregen die perfect werkt, nu heb ik daar een uitbreiding in gemaakt maar nu loopt Excel vast en sluit af.
Het groene deel loopt zonder het rode deel goed.
Ik weet dat het in het rode deel zit maar ik heb dit deel vaker gebruikt en dan loopt het wel goed.

Private Sub row2()
[COLOR="#FF0000"]    If Range("E2") = Chr(254) Then
    Range("F2") = Range("D2")
    Range("D2").ClearContents
    Else
    Range("D2") = Range("F2")
    Range("F2").ClearContents
    End If[/COLOR]

[COLOR="#00FF00"]    If Range("E2") = Chr(254) And Range("G2") = Chr(254) Then
       CommandButton1.BackColor = vbGreen
    Else
       CommandButton1.BackColor = vbRed
    End If[/COLOR]
    End Sub

Waardoor loopt het nu vast?????

 

[edmoor]

Die code is niets verkeerd aan.
Zit er op 1 van de cellen D2, E2 en/of F2 soms nog een macro via de _Change gebeurtenis wordt gestart?

 

[Atwist]

Goedemorgen Ed

Ja dat klopt er is een _Change

Private Sub Worksheet_Change(ByVal Target As Range)
row2
row3
End Sub

 

[edmoor]

Wijzig dat dan eens in dit:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    row2
    row3
    Application.EnableEvents = True
End Sub

 

[Atwist]

Excel loopt nu niet vast, het rode deel loopt 1 keer

    If Range("E2") = Chr(254) Then
    Range("F2") = Range("D2")
    Range("D2").ClearContents
    Else
    Range("D2") = Range("F2")
    Range("F2").ClearContents
    End If

Daarna kan ik in de cellen niets meer invullen, het 2 deel groen blijft werken

 

[edmoor]

Dan moet je in dee _Change controleren of het geactiveerd is door 1 van de cellen in de range D2:F3.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D2:F3")) Is Nothing Then
        Application.EnableEvents = False
        row2
        row3
        Application.EnableEvents = True
    End If
End Sub

 

[Atwist]

Ja nu werkt het perfect :thumb::thumb::thumb:

Super
Dank je wel Ed

 

[edmoor]

Zo zie je ook dat het tonen van alleen een stukje code vaak niet voldoende is om de oorzaak van een probleem te achterhalen.
De code die je plaatste raakte door die _Change in een loop en dan loopt Excel vast.
Met die Application.EnableEvents = False voorkom je dat.

 

[snb]

Maar aan de code zelf is ook nog wel iets te sleutelen:

1 regel is voloende ipv 7 rode regels

cells(2,6+2*(cells(2,5)=chr(254))).cut cells(2,6+2*(cells(2,5)<>chr(254)))