---

Hallo Forum,

ich möchte nach einer Änderung in einer Zelle eine Berechnung anstossen
welche mir dann das Ergebnis erneut in eine Zelle schreibt.
Dadurch komm es zur Endlosschleife.
Unten angehängt ist der Code.

Kann mir jemand einen Tipp geben wie ich aus der Endlosschleife rauskomme.

/* Hier das Beispiel

Private Sub Worksheet_Change(ByVal Target As Range)

    rowc = Target.Row             
    colc = Target.Column           
   
 
  If rowc > 12 Then
      berechnung
  end if
end sub
 
sub berechnung()

        wert = rowc * 2
        Cells(rowc, 3) = wert
        Cells(rowc, 4) = rowc     
     
End Sub

Gruß
Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

' Dein code

Application.EnableEvents = True

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Henning,
SUPER - es feunktioniert -
herzlichen Dank - das war die erwünschte Lösung.

Gruß
Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP