Werte einfrieren
04.07.2017 11:20:51
Michael
ich habe folgendes Problem.
Ich möchte gerne in meiner Excel-Datei den maximalen Wert einer Veränderung (Spalte H im Verhältnis zu Spalte L) auslesen und diesen Wert in Spalte V einfrieren. Das Problem hierbei ist, das sich die Daten über einen Datenfeed dauernd im Hintergrund ändern.
Folgenden Code hatte ich hier mal vor Jahren bekommen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R%
If Not Intersect(Target, Range("A:M")) Is Nothing Then
R = Target.Row
If Abs(Cells(R, 8) - Cells(R, 12) > Cells(R, 22)) Then
Cells(R, 22) = Cells(R, 8) - Cells(R, 12)
ElseIf (Cells(R, 12) - Cells(R, 8) > Cells(R, 22)) Then
Cells(R, 22) = Cells(R, 12) - Cells(R, 8)
End If
End If
End Sub
Leider funktioniert dieser Code nur wenn ich die Daten per Hand ändere, da die Daten aber über einen Feed andauernd geändert werden können, bekomme ich keine Werte ausgelesen. Hat jemand eine Idee ?
Vielen Dank im voraus
Michael