Als Antwort auf diesen Beitrag
HI
wie lange "Kunde einlesen" dauert, hängt nur davon ab, wie viele Zeilen in der jeweiligen Kundendatei befüllt sind.
die kannst du ja mal öffnen und anschauen, wie groß die geworden ist.
was das einlesen Verlangsamen kann, wären eventuelle Eventmakros (Change, Calculate) oder aufwendige Formeln, die bei jedem Einfügen neu berechnet werden.
wenn das das Problem ist, könnte man das so beschleunigen:
with Application
.enableevents = false
.calculation = xlcalculationmanual
.screenupdating = false
end with
For i = 1 To UBound(arr, 2)
If arr(i, 1) <> "" Then
Range(arr(i, 1)).Value = arr(i, 2)
End If
Next
with Application
.enableevents = true
.calculation = xlcalculationautomatic
.screenupdating = true
end with