Hallo zusammen,
folgendes Problem:
Ich befülle zwei Arrays(30) mit Spaltennummern um damit später den Verweis direkt griff bereit zu haben. Allerdings dauert dann der Prozess um diese Verweise wieder aus dem Array zu holen sehr lange (1-2 Sekunden pro Durchgang). Könnte ihr mir helfen den Prozess zu beschleunigen?
VIELEN DANK!!
(1) Hier befülle ich die Arrays (TradeLog_COL und Orderbook_COL) mit den notwendigen Spalten-Nr.
-----
Do
If Range("OrderBook_FirstROW").Offset(0, siLaufImportCells) = "" Then Exit Do
TradeLog_COL(siLaufImportCells) = Application.Match(Range("OrderBook_FirstROW").Offset(0, siLaufImportCells), wsTradeLog.Rows(Range("TradeLog_FirstROW").Row), 0)
Orderbook_COL(siLaufImportCells) = Range("OrderBook_FirstROW").Column + siLaufImportCells
siLaufImportCells = siLaufImportCells + 1
Loop
-----
(2) Hier übertrage ich den Inhalten vom TradeLog-Sheet in das Orderbook-Sheet, auf Basis der notwendigen Spalten-Nr aus dem Arrays. Und genauer dieser Vorgang dauert mehrere Sekunden. Der Grund dafür ist mir nicht ganz klar....
-----
For siRun = 0 To (siLaufImportCells - 1)
wsOrderbook.Cells(siLaufOrderBook, Orderbook_COL(siRun)) = wsTradeLog.Cells(siLaufTradeLog, TradeLog_COL(siRun)).Value
Next siRun
-----
|