der Corona Virus zwingt viele zum Homeoffice, so auch bei mir.
Ich versuche seit zwei Tagen den Auslöser zu finden, der für das angefügte Makro nach erneutem Start der Initialisierung für ComboBox füllen ohne doppelte Einträge von 3 Sekunden auf ca. 90 Sekunden erhöht und Excel "Keine Rückmeldung" anzeigt.
00:00:04 Erster Durchlauf
00:01:26 Zweiter Durchlauf mit "Keine Rückmeldung"
00:00:03 Erster Durchlauf nach Neustart Excel
00:01:36 Zweiter Durchlauf nach Neustart Excel mit "Keine Rückmeldung"
An der Zuweisung der CreateObject("Scripting.Dictionary") selber kann es wohl nicht liegen, weil nur dann, wenn die beiden ComboBoxen im Userform mit der einer Auswahl angesteuert werden tritt das Problem auf.
Kurze Erklärung des Makros und der der Tabelle:
Die Tabelle1 ist ein Datenexport aus einem Programm, um Bewegungsdaten von Linienbussen aus deren Bordrechner für bestimmte Linien zu analysieren, Zeitverzug durch Signalanlagen, Stau, Fahrgastaufkommen etc. Die Datensätze sind dem ausgewählten Zeitraum entsprechen sehr groß.
Die dargestellten Tabelle1 ist nur auf den, für das Makro erforderlichen Bereich, gekürzt worden.
Die Tabelle2 ist nur für die Dokumentation der Makrolaufzeiten.
Das Makro Start bzw. die Code frm_Eingabe_neu sind nur ein Auszug aus einem umfangreichen Tool.
Mit der UserForm sollen die derzeit aus den Bordrechnern fehlenden Daten der Sonderanzeige gesetzt werden.
Beispiel:
Start-Haltestelle: Lippstadt, Bustreff Bahnhof
Soll-Abfahrtzeit: 05:18:00
Wochentag: Mo
Nach betätigen Button Start-Eingaben Prüfen wird über die Function Start_Pruefung() der Autofilter gesetzt. Ist die Prüfung erfolgreich wir in der UserForm im txt_Start_Pruefung das Ergebnis angezeigt.
Anschließend werden die betroffenen Haltestellen für die Sonderanzeige ausgewählt. Dieses ist aber in diesem Beispiel nicht weiter relevant.
Wenn jetzt über den Button Beenden die UserForm verlassen wird, beendet das Makro, UserForm wird entladen. In der Überwachung der Ausdrücke VBA werden die Werte in den Variablen hsh1 und hsh2 aufgrund Nothing auch sauber zurückgesetzt.
Nach erneutem Makrostart, kommt es zu dem oben beschriebenen Zeitfehler.
Da der Upload hier auf 300KB beschränkt ist, musste die Tabelle1 von 42.751 auf 1.737 Datensätze gekürzt werden. Wodurch natürlich der Zeitfehler nicht auftritt.
Irgendetwas ist noch im Hintergrund nicht geschlossen, aber was? Da brauche ich Hilfe.
Danke schon mal im Voraus
Gruß Thomas
https://www.herber.de/bbs/user/135955.xls