zuverlässiger undo bei change-ereignis
hotzi
der u.g. code führt mir in verbindung mit dem chance-ereignis den undo nur dann zuverlässig aus, wenn ich die änderung mit der enter-taste abschließe. setzte ich den mauszeiger in eine andere zelle, wird die änderungen angenommen. gibt es auch für diese situation ein zuverlässigen undo
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:R14")) Is Nothing Then
With Application
.EnableEvents = False
.UnDo
.EnableEvents = True
End With
Set Target = Nothing
end if
end Sub
danke + beste grüße
klaus