Workbook_SheetChange löscht Zwischenspeicher ...
26.06.2008 10:37:55
Peter
Guten Tag
Ich habe eine Datei mit untenstehendem Ereigniscode. Auf der lokalen Maschine bleibt mir der Zwischenspeicher erhalten, wenn dieser abgelaufen ist. Wenn ich die Datei auf dem Server habe und via Citrix zugreife löscht das Ablaufen des Ereigniscodes den Zwischenspeicher.
Kann mir jemand sagen, auf was das zurückzuführen sein könnte?
Danke, Peter
Option Explicit
Dim bUndo As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.Calculate
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