Rückgängig bei Worksheet_Change
14.08.2018 11:51:09
Luggas
ich hätte eine Frage zwecks "Worksheet_Change".
Aktuell nutze ich folgenden Code, welcher soweit auch super funktioniert.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Handler
If Target.Column = 4 And Target.Value "" Then
Application.EnableEvents = False
Target.Offset(0, 9) = Format(Now(), "dd.mm.yyyy")
Target.Offset(0, 10) = "xxx"
Application.EnableEvents = True
MsgBox "Datum und Kürzel wurde geändert!"
End If
Handler:
End Sub
Nun ist mir jedoch aufgefallen, dass ich nach der Ausführung die "Rückgängig-Taste" nicht mehr betätigen kann. Habe demnach eben herausgefunden, dass dies bei "Worksheet_Change" nicht so ohne weiteres möglich ist.
Wichtig wäre mir dass der Wert in Spalte 4 irgendwie zwischengespeichert wird und mithilfe der "Rückgängig-Taste" wiederhergestellt werden kann.
Optional (nice to have, aber nicht unbedingt notwendig) wäre, dass sich die Werte die sich durch den Code geändert haben ebenfalls wiederhergestellt werden (Spalte 9 und Spalte 10).
Wie immer vielen Dank im Voraus für eure Hilfe.