Textdatei als Endlosschleife einlesen (4)
13.12.2016 12:35:45
Rainer
Ein großes Dank an Fennek, Werner und Uwe D. Dank eurer tollen Mithilfe macht mein Excelfile nun endlich was es soll.
Die beiden Vorgängerthreads im Forum sind:
https://www.herber.de/cgi-bin/callthread.pl?index=1528578
https://www.herber.de/forum/archiv/1528to1532/t1529021.htm#1529021
Das "Performance-Problem" habe ich lösen können. Die Abfrage
If FileDateTime(Datei(i)) > SpeicherZeit(i) Then
habe ich entfernt. Jetzt liest das Makro die Dateien alle 2 Sekunden neu ein.
Das Problem "Automatische Umleitung zum EXPORT Sheet" habe ich noch. Vorübergehend gelöst habe ich es durch
Application.ScreenUpdating = False
Worksheets("MAIN").Activate
Das hinterlässt nur ein kurzes Flackern. Aber man ist auf das MAIN Sheet festgebunden, solange der Import läuft.
Ein neues Problem ist aber entstanden. Das "Exportwerte kopieren" Makro von Uwe D. liefert beim allerersten durchlaufen eine Fehlermeldung ab:
Laufzeitfehler '1004':
Leider konnte nichts eingefügt werden, da der Kopieren-Bereich und der Einfügebereich nicht die gleiche Größe haben.
Mit "F5" im Debugger macht er ganz normal weiter und kann die Daten einfügen. Ich verstehe den Zusammenhang nicht.
Merkwürdige Lösung hier ist: Kopiere das Format von Zeile 3 auf Zeile 4. Nun überspringt er Zeile 4 beim Kopieren und erzeugt keine Fehlermeldung.
Hat jemand eine Erklärung?
Vielen Dank und viele Grüße,
Rainer