Zelle neu berechnen

[StefKe]

Hallochen allerseits, ich versuche grad eine Zelle nach Eingabe neu zu berechnen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim varNew As Variant
Dim wks As Worksheet

Set wks = ThisWorkbook.Worksheets("Wasser")
    If Target.Column = 4 Or Target.Column = 5 Then
        varNew = Target.Value
        Target.Value = varNew / 10
    End If
End Sub

Der Code läuft soweit - fast :-(  Blöd nur das nach jeder Berechnung das Change-Ereigniss wieder eintritt und Berechnung wie in einer Endlosschleife ausgeführt wird.
Gibt es dafür einen Lösung?
PS: varNew kann auch ein String werden, daher hab ich diesen Datentyp gewählt...was dann in der if-Abfrage geklärt wird.

Danke für jeden Rat
Stefan

[Calderon]

Füge noch nach der IF-Zeile ein

Application.EnableEvents = False
und am Ende ein
Application.EnableEvents = True

hinzu.

[StefKe]

Danke, man lernt irgendwie nie aus :-)

Stefan