|
Wie gesagt, der Code ist nicht von mir, VBA beherrsche ich nur wenig aber ich probiers trotzdem mal :) Und doch, der code ist vollständig.
zu 1)
So wie ich das verstehe ist iWait nur ein Zähler der bei jedem Aufruf der Funktion hochgezählt und dann von der gesamten Wartezeit von 300 Sekunden abgezogen wird. Damit der Counter in der Statusleiste unten von 5Min rückwärts zählt.
2)
gdNextTime wird nicht initalisiert sondern nur in AutoClose zugewiesen
3)
kann ich versuchen, und dann mit dem ersten Zeitstempel versuchen das Event zu schließen?
Application.OnTime gdNextTime, dsMacro
Zu guter Letzt: Ja ich habe den Teil für Wiederholende mal tatsächlich ausprobiert. 1:1 kopiert.
Aber auch hier: Ist eine zweite Datei (*.xlsm) geöffnet und man schließt die erste (frisch erzeugte) Datei, wird sie sofort wieder geöffnet.
|