Moin liebe Helfer,
ich habe folgendes Problem. Und zwar habe ich einen Worksheet_Change geschrieben, welches auf Veränderungen in einer Zelle reagiert.
Z.B. steht in der Spalte A1 1000, wenn ich nun diesen Wert verändere und hier 1200 schreibe, übernimmt mein Excel in die Zelle B1 den alten Wert 1000.
So weit so gut.
Das Problem ist jedoch das dies nur dann funktioniert wenn ich da etwas eintippe, was mir natürlich nicht viel bringt. Ich will das dies auch dann funktioniert, wenn mein Wert in der Zelle A1 durch ein Formel sich verändert. Ist das zu schaffen ? Wenn ja wie ?
Mein Code sieht folgendermaßen aus:
Option Explicit
Dim alt
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count <> 1 Or Not IsNumeric(Target) Or Not IsNumeric(alt) Then Exit Sub
If Target.Column = 25 And alt <> "" Then Cells(Target.Row, 26) = alt
alt = ""
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 25 Then alt = Target.Value 'liest erstmal aus
End Sub
Danke vorab!
LG
|