Makro funktioniert nicht in allen Umgebungen
15.04.2008 17:48:00
Peter
Hier im Forum hat mir jemand diesen hilfreichen Code geschrieben, der bewirkt, dass eine Eingabe ignoriert wird, wenn mehrere Tabellen angewählt sind (und daher vielleicht etwas überschrieben würde, das nicht gewünscht ist). Der Code steht auf
DieseArbeitsmappe
Interessanterweise funktioniert dieser Makro nur in der Citrix Umgebung. Wenn ich das Dokument in einem lokalen File auf dem PC habe, wird eine Eingabe nicht rückgängig gemacht, wenn mehrere Tabellen angewählt sind. Ich dache, dass vielleicht ein Makro inder persölichen Makrovorlage "schuld" sei. Doch auch das Schliessen dieser Datei hat keine Änderung bewirkt.
Hat jemand eine Idee, weshalb dieser Code auf meinem PC lokal wirkungslos bleibt?
Danke für eine Rückmeldung
Peter
Option Explicit
Dim bUndo As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Sh.Name ActiveSheet.Name Then
With Application
.EnableEvents = False
If Not bUndo Then .Undo
.EnableEvents = True
End With
bUndo = True
Exit Sub
End If
bUndo = False
End Sub