Zelle neu berechnen - Druckversion

Zelle neu berechnen - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Zelle neu berechnen (/thread-21087.html)

Zelle neu berechnen - StefKe - 24.06.2021

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

RE: Zelle neu berechnen - Calderon - 24.06.2021

Füge noch nach der IF-Zeile ein

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

hinzu.

RE: Zelle neu berechnen - StefKe - 24.06.2021

Danke, man lernt irgendwie nie aus :-)

Stefan