Ich hatte früher einen Code, der eine Eingabe rückgängig machte, wenn mehr als ein Tabellenblatt aktiviert ist.
Nun funktioniert das nicht mehr zuverlässig. In der Regel klappt es das erste Mal. Dann wir die Meldung noch angezeigt, aber der Eintrag nicht rückgängig gemacht.
Kann mir jemand helfen?
Danke und Gruss, Peter
https://www.herber.de/bbs/user/104438.xlsm
Option Explicit
Dim bUndo As Boolean
''''
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If ActiveWindow.SelectedSheets.Count > 1 Then
With Application
.EnableEvents = False
If Not bUndo Then .Undo
.EnableEvents = True
End With
bUndo = True
MsgBox "Mehrere Tabellen aktiviert !!!"
Application.EnableEvents = True
Exit Sub
End If
bUndo = False
End Sub