Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aus Datei lesen

Aus Datei lesen
27.12.2003 19:59:58
Philipp Loosmann
Hallo zusammen!

Mit folgendem Code lese ich daten aus einer txt-Datei ein.

sPath = ThisWorkbook.Path & "\plat\S5.txt"
Open sPath For Input As #1
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, P
Worksheets("PosZO").Cells(i, 1).Value = P
i = i + 1
Loop
Close #1 ' Datei schließen.

Es funkioniert aber nur sehr langsam.
Was kann ich tun, um die Sache zu beschleunigen?

Danke für Eure Hilfe.

Philipp

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus Datei lesen
27.12.2003 20:10:14
andre
hallo phillip,
wenn du die daten auf dem blatt benötigst, fast nichts.
--> wenn es das gerade sichtbare blatt ist
application.screenupdating=false
--> eventuell auch noch Application.Calculation = xlCalculateManual
und hinterher auf true und xlcalculateautomatic
gruss andre
AW: Aus Datei lesen
27.12.2003 20:25:01
Philipp Loosmann
Hallo andre,

danke für die Antwort.
Ich werds mal ausprobieren.

Gruss Philipp
AW: Aus Datei lesen
27.12.2003 20:13:05
dieter
Hi Philipp,

zur Beschleunigung des Makros folgende Zeilen einfügen:
Direkt nach Sub ...()
Am Anfang
"Application.Screenupdating = False" (die Bildschirmaktualisierung wird abgeschaltet)
Vor Ende Sub
"Application.Screenupdating = True" (die Bildschirmaktualisierung wird eingeschaltet)-

Dies wird das Makro beschleunigen.

Gruß dieter
Anzeige
AW: Aus Datei lesen
27.12.2003 20:25:33
Philipp Loosmann
Hallo dieter,

danke für die Antwort.
Ich werds mal ausprobieren.

Gruss Philipp

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige