24.06.2021, 12:36
Hallochen allerseits, ich versuche grad eine Zelle nach Eingabe neu zu berechnen:
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
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 SubDer 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