Hallo zusammen!
Ich habe folgendes Programm:

Private Sub Worksheet_Change(ByVal Target As Range)

    MsgBox "Start"
    Dim xrng As Range
    Set xrng = Range("A2:B2")
    
    Dim zeile As Integer
    Dim spalte As Integer
    spalte = Range(Target.Address).column
    zeile = Range(Target.Address).Row
    
    If Target.Address = "$A$2" Or Target.Address = "$B$2" Then
        MsgBox "If Loop startet"
        Call EnterData(zeile, spalte)
    End If
End Sub

Private Sub EnterData(zeile As Integer, spalte As Integer)
    MsgBox "Neue Sub startet"
    Dim zeile2 As Integer
    zeile2 = zeile
    Dim spalte2 As Integer
    spalte2 = spalte

    'MsgBox "Füge Werte ein"
    Cells(zeile2 + 4, spalte2).Value = "2000"
    Cells(zeile2 + 5, spalte2).Value = "2000"
    MsgBox "Ende der Sub"

End Sub

Ich möchte gerne einen Zellbereich (A2:B2) überwachen.
Sobald der Wert in einer der Zellen abgeändert wurde, soll ein Unterprogramm starten und einen Eintrag in einer anderen Zelle auslösen.

Sobald erkannt wird, dass ein Wert in dem Zellbereich geändert wurde, springt mein Programm in die If-Schleife und ruft eine neue Sub_EnterData auf.
Allerdings startet ebenso die Sub_Worksheet Change erneut bevor die Sub_EnterData einen Einträge gemacht hat.
Es scheint mir, dass für jede Befehlszeile in der Sub_EnterData die Sub_Worksheet Change immer wieder aufgerufen wird.

Dies führt dazu, dass die Laufzeit des Programms stark beeinträchtig wird und das Programm an seine Grenzen kommt, wenn sich die befehle in der Sub_EnterData auf eine Vielzahl erhöht.

Ich möchte daher das Aufrufen der Sub_WorksheetChange unterbinden.

Ich freue mich über jeden Tipp der Community.