Kopieren dauert ewig
29.02.2016 11:41:10
K.
Ich kopiere Daten aus einer Datei in eine andere.
Bereich AA1:CF150
Nur Daten, keine besondere Formatierung, keine bedingte Formatierung, nichts, reine Daten.
Aber egal ob ich folgenden Befehl nutze:
Workbooks(Schicht & "-AR1 " & Sheets("Daten").Cells(2, 255) & ".xlsx").Sheets("Daten")._
Range("AA1:CF150").Copy Destination:=Workbooks("Abwesenheit 2016.xlsm").Sheets("Daten").Range("AA1")
oder
With Workbooks(Schicht & "-AR1 " & Sheets("Daten").Cells(2, 255) & ".xlsx").Sheets("Daten")
Call .Range("AA1:CF150").Copy(Destination:=Workbooks("Abwesenheit 2016.xlsm"). _
Sheets("Daten").Range("AA1"))
End With
es dauert bis zu 5 Minuten, bis der Befehl umgesetzt ist.
Woran kann das liegen?
Gruß
K. Jung