Worksheet_Change - UNDO / rückgängig
06.05.2015 06:50:23
Erwin
mit folgendem Code halte ich fest, wer wann auf dem Tabellenblatt etwas geändert hat und gebe dies in C4 auch aus:
Private Sub WorkSheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Application.EnableEvents = False
ActiveSheet.Range("C4").Value = Format(Now, "DD.MM.YYYY - hh:mm:ss ") & "von " & Environ(" _
Username")
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & " " & Err.Description
Application.EnableEvents = True
End Sub
Ein Beitrag von K.Rola, welcher allerdings schon von 2004 ist, lässt mich ein wenig hoffen.
https://www.herber.de/forum/archiv/380to384/383248_Worksheet_change_tritt_nicht_ein.html
Ich habe dies in einer Beispieldatei nachgebaut, aber es funktioniert nicht, oder ich habe etwas falsch gemacht.
https://www.herber.de/bbs/user/97487.xlsm
Es erscheint lediglich eine MsgBox (die ich nicht brauche) und UNDO ist dann wieder ausgegraut.
Oder gibt es eine andere Möglichkeit, festzuhalten, wer wann auf einem TAB etwas geändert hat und UNDO funktioniert trotzdem noch?
Grüße - Erwin