Thema Datum  Von Nutzer Rating
Antwort
Rot Makro - Überwachung Zellbereich und neue Sub
29.10.2021 13:47:43 Carla
NotSolved
29.10.2021 14:15:10 Gast36391
NotSolved
29.10.2021 14:21:44 Gast7777
NotSolved
01.11.2021 14:47:40 Nobody
NotSolved
01.11.2021 14:53:37 Gast7777
NotSolved
01.11.2021 19:44:46 Gast63691
NotSolved
01.11.2021 19:50:10 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Carla
Datum:
29.10.2021 13:47:43
Views:
107
Rating: Antwort:
  Ja
Thema:
Makro - Überwachung Zellbereich und neue Sub

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro - Überwachung Zellbereich und neue Sub
29.10.2021 13:47:43 Carla
NotSolved
29.10.2021 14:15:10 Gast36391
NotSolved
29.10.2021 14:21:44 Gast7777
NotSolved
01.11.2021 14:47:40 Nobody
NotSolved
01.11.2021 14:53:37 Gast7777
NotSolved
01.11.2021 19:44:46 Gast63691
NotSolved
01.11.2021 19:50:10 Gast7777
NotSolved