Überprüfung von Zellbereichen
29.10.2021 13:43:02
Zellbereichen
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.