Komisches Verhalten bei Berechnung
15.02.2020 10:04:47
kasper00@gmx.de
ich habe ein komisches Phänomen und zwar wie folgt:
1. Wenn in der Zelle X3 eine Zahl eingetragen wird dann wird Sie immer richtig verrechnet, außer wenn in der Zelle T3 eine "0" steht, dann wird der Wert aus X3 verdoppelt.
2. Wenn in der Zelle Z3 eine Zahl eingetragen wird die halb so groß ist wie in T3 dann wird der Wert von Z3 verdoppelt. Bsp.: T3 = 20 eingtragen von 10 in X3 dann wird T3=0 obwohl es eine 10 sein müsste.
kann mir dies nicht erklären warum dies passiert, hat jemand ein rat wo der Knackpunkt liegt?
Vielen Dank
Metzler
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Heilung As Single
Dim Schaden As Single
Dim nTod As Single
If Target = Range("X3") Then
Heilung = Target.Value
If Heilung 0 Then
Range("T3").Value = Range("T3").Value + Range("X3").Value
Range("X3") = "0"
End If
End If
If Target = Range("Z3") Then
Schaden = Target.Value
If Schaden 0 Then
Range("T3").Value = Range("T3").Value - Range("Z3").Value
Range("Z3") = "0"
End If
End If
If Target = Range("AB3") Then
nTod = Target.Value
If nTod 0 Then
Range("V3").Value = Range("V3").Value - Range("AB3").Value
Range("AB3") = "0"
End If
End If
End Sub