ich möchte mittels VBA Daten von einem anderen Excel-Dokument in das aktuelle kopieren. Das funktioniert bereits, allerdings dauert dies sehr lange (bei 100 zu kopierenden Zeilen mit je 4 Zellen).
Habt ihr eventuell Verbesserungsvorschläge für mich?
Hier wäre mein aktueller Code:
'Datei öffnen
Workbooks.Open Filename:=strPath + "\" + strCurrentFile, ReadOnly:=True
'Anzahl der Zeilen in anderer Datei herausfinden
intRows = ActiveSheet.Cells(1000, 4).End(xlUp).Row
'Relevante Daten kopieren und wieder einfügen
ii = 14
For i = 1 To intRows
If ActiveWorkbook.Worksheets("Tabelle1").Cells(i, 4).Value = "Produkt" Then
ThisWorkbook.Worksheets("Tabelle1").Cells(ii, 1).Value = ActiveWorkbook.Worksheets(" _
Tabelle1").Cells(i, 1).Value
ThisWorkbook.Worksheets("Tabelle1").Cells(ii, 2).Value = ActiveWorkbook.Worksheets(" _
Tabelle1").Cells(i, 13).Value
ThisWorkbook.Worksheets("Tabelle1").Cells(ii, 3).Value = ActiveWorkbook.Worksheets(" _
Tabelle1").Cells(i, 17).Value
ThisWorkbook.Worksheets("Tabelle1").Cells(ii, 4).Value = ActiveWorkbook.Worksheets(" _
Tabelle1").Cells(i, 18).Value
ii = ii + 1
End If
Next
'Datei wieder schließen
ActiveWorkbook.Close
Schon einmal vielen Dank für euere Hilfe!
Viele Grüße
Jakob