Wie Gast94298 geschrieben hat. Benutze die entspr. Methode um neue Einträge der Tabelle hinzuzufügen. Genau das ist bei dir derzeit das Problem. Wenn im Hintergrund gerade ein Ereignis ausgelöst wurde und am laufen ist, hat man in diesem Zeitraum - sei er auch noch so klein - keinen Schreib-Zugriff auf den Bereich.
Wenn es mit der oben genannten Methode immer noch zu dem fehler kommt, dann ändere die Tabelle in einen normalen Bereich (Recktsklick irgendwo in den Tabellenbereich: Tabelle > In Bereich konvertieren).
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
CloseNow = False
CloseNowFile = False
Application.OnTime CloseTimer, "DoClose", , False
DoClose
End Sub
Das hier ist immer gefährlich und man sollte sich genau überlegen was man da eigentlich betreibt. Es ist sehr einfach hier ein Feuerwerk an Ereignissen auszulösen die auch zu schwer findbaren Fehlern führen können.
|