Laufzeitfehler 1004 nach langer Laufzeit

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Dass mehrere OnTime gleichzeitig gestartet werden, ist möglich, aber wieso würde das einen Fehler auslösen?
Zugegeben, ich konnte spontan auch keinen Fehler provozieren. War nur so ein Gedanke, wenn z.B. zwei identische OnTime laufen und einer der beiden OnTime mit False abgebrochen wird und der andere OnTime auslöst obwohl im Hintergrund abgebrochen. Irgendwie sowas :)
Einen "Random Error" kann man schlecht rekonstruieren und darum schlecht beheben. Ich sehe deshalb wenig Chancen auf eine Lösung, solange kein Muster erkennbar ist.
Eine Frage habe ich dann doch noch betr. folgender Zeile:


If DieseArbeitsmappe.workbookClosed = False Then

WorkbookClosed lese ich zum ersten mal und löst bei mir einen Kompilierungsfehler aus. Workbook klein geschrieben deutet auch darauf hin, dass es kein Schlüsselbegriff ist. Mir kommt die Zeile suspekt vor.
Wie kann die Zeile bei dir laufen bzw. steckt da noch etwas anderes dahinter, was man in der Musterdatei nicht sieht?
cu
Chris

Public workbookClosed As Boolean Private Sub Workbook_Open() workbookClosed = False Clock End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next workbookClosed = True Application.OnTime Modul1.runTime, "Clock", , False End Sub

Hi
da wir ja jetzt nicht mehrere Stunden warten können, bis der Fehler auftritt (bzw du wahrscheinlich nicht bereit bist, uns diese Zeit die wir dann für dich verwenden angemessen zu vergüten), solltest du uns mitteilen:
a) in welcher Programmzeile tritt der Fehler auf
b) wenn der Fehler auftritt, welchen Wert haben die in der Fehlerverursachenden Programmzeile Variablen und Zellberzüge (bei Objektvariablen, welche Objekte sind der Variable zugeordnet.
Ansonsten erscheint mir der Rückruf des letzen OnTimes beim Schließen etwas unsauber.
sollte hier nicht folgendes ausreichen:


Public Sub Clock()
runTime = Now + TimeValue("00:00:01")
Application.OnTime runTime, "Clock"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Modul1.runTime > Now Then Application.OnTime Modul1.runTime, "Clock", , False
End Sub

Solange du noch auf der Fehlersuche bist, solltest du alle ON ERRORs möglichst vermeiden und lieber bekannte mögliche Fehlerursachen vorher abfragen, so dass ein ON ERROR im Normalfall nicht notwendig ist.
Bei jedem ON ERROR-Sprung gehen die Informationen, die ich oben genannt habe, verloren und du hast keinen Hinweis auf die Fehlerursache.
Es drüfte zwar nichts mit dem Fehler zu tun haben, aber ich würde nur die Variabeln als global gültig (also oberhalb des Makros deklarieren), die in mehreren unabhängigen Makros benötigst und alles was nur in einem Makro benötigt wird, wird auch in diesem Makro deklariert.
das wäre in deinem Fall nur das Public runTime As Date, was global benötigt wird, der Rest sollte im Makro selbst deklariert werden.
der Unterschied ist, dass Excel die im Makro deklarierten Variablen bei Makroende wieder löscht, also quasi aufräumt.
globale Variablen bleiben im Speicher erhalten und belegen diesen permanent.
noch ein Punkt:
du arbeitest nicht mit Option Explicit.
Das sollte man aber auf jeden fall machen, weil ohne Option Explicit und die Notwendigkeit zur Variablendeklaration bekommst du keinen Hinweis, wenn du dich mal bei einer Variable vertippt hast, weil dann sofort eine neue leere Variable angelegt und verwendet wird.
Solche Fehler fallen dann oft nicht oder erst sehr spät auf (durch fehlerhafte Ergenisse) und sind schwer zu finden.
Daher immer Option Explicit verwenden, mehr zu dem Thema hier: https://online-excel.de/excel/singsel_vba.php?f=4
Gruß Daniel

Set sObj = ThisWorkbook.Worksheets("ZEITPLAN").ChartObjects("ClockChart").Chart.SeriesCollection("Sekunde") sObj.XValues = "={" & Replace(CStr(xy), ",", ".") & "," & Replace(CStr(xS), ",", ".") & "}"

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 1004 nach langer Laufzeit

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread