in meinem Makro lese ich eine Binär-Datei mit ca. 6.000 Wertepaaren in mein Datenfeld "h(1 to 10) as long" Zeilenweise ein (Ein Wertepaar besteht aus 10 Long-Integers, wovon ich nur den 2. und 4. benötige)
Die Einlesen und Ausgeben erfolgt in einer Schleife
Application.screenupdating = false
application.calculation = xlmanual
While not eof(filenr)
...
'#Kraft
Cells(counter, spalte) = h(2)
'#Weg
Cells(counter, spaltem) = h(4) / 1000#
wend
Das Ausgeben der Werte mit Cells(... dauert allerdings je nach Rechner ca. 12 bis 45 sec, wenn ich die Ausgabe der Werte weglasse (was natürlich keinen Sinn macht) läuft das Makro auf jedem Rechner in ca. 1 sec.
Gibt es irgendwas, womit ich die Ausgabe der Werte beschleunigen könnte?
Danke für die Hilfe
Jan L.