Nicht gewünscht Autolooping-Makro in VBA (Makro, das 84-86 mal spontan Schleifen)

Question

Ich muss einfach Makro in VBA, die Wert einer Zelle ändert, wenn ich diese Zelle Wert Formular Excel ändern. Zum Beispiel ändere ich im Excel-Wert der Zelle auf 100 und das löst Makro, die zu diesem Zelle Wert 1 hinzufügen. Ich habe es gemacht, aber das Problem ist ziemlich seltsam ... dieses Makro löst 84-86 mal ich weiß nicht warum VBA macht das für mich, aber ich weiß nicht, wie ich mit diesem Problem umgehen soll.

Vielen Dank für Ihre Hilfe!

Code of Makro:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim KeyCells As Range 
    Set KeyCells = Range("D8") 

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _ 
      Is Nothing Then 

     Cells(8, 4) = Cells(8, 4) + 1 

    End If 
End Sub 

Answer 1

Ich werde versuchen, etwas Ordnung für Sie ein wenig zu machen.

Sobald Sie die Zelle "D8" ändern, geben Sie das Ereignis Worksheet_Change ein und erhöhen den Wert der Zelle "D8" um +1. Dadurch wird der Code erneut ausgelöst usw., was zu einer Endlosschleife führt Application.EnableEvents = False Zugabe, vergessen Sie nicht, um sie wiederherzustellen, bevor Sie die Sub verlassen.

TargetAs Range definiert ist, so brauchen Sie nicht Range(Target.Address) zu bedienen, einfach Target verwenden.

Sobald Sie die Schleife eingegeben haben, können Sie Ersetzen Sie Cells(8, 4) durch Target, da es das gleicheistwie zuvor in Intersect(Target, Range("D8")) überprüft.

-Code

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Not Application.Intersect(Target, Range("D8")) Is Nothing Then 
     Application.EnableEvents = False 
     Target.Value = Target.Value + 1 
    End If 
    Application.EnableEvents = True '<-- restore setting 

End Sub