Hallo zusammen!

Ich habe ein VBA-Skript in Excel, das mit den alten Wert mit dem neuen Wert ein und derselben Zelle vergleicht.
Code steht unten. Wenn ich die Zelle manuell ändere, d.h. einen Wert direkt rein schreibe, geht es einwandfrei (z.B. "alter Wert = 1" ändere ich um in "neuer Wert = 2" - das Skript berechnet mit nun die prozentuale Änderung und schreibt sie in Nachbarzelle).
Nun ändere ich die Zelle aber nicht selbst, sondern über eine Formel, die aus anderen Zellen den Wert berechnet (also: "alter Wert =G1+G2" wird zu "neuer Wert = G1+G2" (wobei G2 einen anderen Wert hat). Das SKript berechnet mir nun gar nichts.

Woran liegt das? Muss ich den Wert erst umformatieren? (Mit der Fkt. =WERT klappt ds nicht).

Wäre schön, wenn mir jemand helfen könnte.

Grüße
Marc

Option Explicit

Public Alter_Eintrag As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Alter_Eintrag <> "" And Target.Cells <> Alter_Eintrag And Not Intersect(Target, [G9, G12, G13, G16, G23, G30, G37, G44, G51, G58, G65, G72, G79, G86, G93, G100, G107, G114, G121, G128, G135, G142, G149, G156]) Is Nothing Then
Cells(Target.Row, Target.Column + 1) = (Cells(Target.Row, Target.Column) - Alter_Eintrag) / (Alter_Eintrag)
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Alter_Eintrag = Target.Cells
End Sub