Hallo community,
ich habe ein Problem mit großen Datenmengen und der Schreibgeschwindikeit von Excel. Hoffe ihr könnt mir helfen.
Zum Problem: Ich möchte aus einem ExcelSheet Daten in ein anderes ExcelSheet übertragen, das habe ich sehr einfach gelöst:
-----------------------------------------------------------------------------------------------------------------------------------------------------------
-> Diagrammfile.xlsm ist geöffnet und startet automatisch das Makro zum einlesen der Daten aus Datenfile.xlsx
Workbooks.Open Filename:="G:\XXX\XXX\XXX\XXX\XXX\XXX\VBA\Datenfile.xlsx" '.xlsxDatei öffnen und Bereich einlesen
For i = 1 To 30
For j = 1 To 12
Workbooks("Datenfile").Worksheets("Daten").Cells(i, j).Copy 'Zelle aus Blatt Hauptprojekt wird kopiert
Workbooks("Diagrammfile").Worksheets("Daten").Cells(i, j).PasteSpecial Paste:=xlPasteValues 'Wert aus Zelle wird eingefügt
Next j
Next i
-----------------------------------------------------------------------------------------------------------------------------------------------------------
jetzt habe ich auf diese Art 3000 Zellen zu übertragen. Im Mittel schafft mein Excel 5 Zellen pro Sekunde zu schreiben. Dies entspricht einer Bearbeitungszeit von 10 Minuten und ist natürlich nicht akzeptabel.
Wie kann ich dieses Problem anders lösen? Es müssen weiterhin 2 getrennte Datein sein.
mit freundlicem Gruß Max
|