Worksheets(
"Daten"
).Range(
"A2:BE2500"
).Clear
Damit lösche ich die Daten bevor ich die neuen einspiele.
ltzZeile = Cells(Rows.Count, 1).
End
(xlUp).Row
Worksheets(1).Range(Cells(2, 1), Cells(ltzZeile, 3)).Copy Destination:=.Range(
"A1"
)
Worksheets(1).Range(Cells(2, 5), Cells(ltzZeile, 5)).Copy Destination:=.Range(
"D1"
)
Worksheets(1).Range(Cells(2, 10), Cells(ltzZeile, 10)).Copy Destination:=.Range(
"E1"
)
Damit spiele ich meine Daten ein.
Jetzt das Problem
die Letzte Zeile in mienem Sheet bleibt aber die Zeile 2500 aus dem Clear,
Das die letzte Zeile nun immer 250 ist und auch wenn ich nur 200 Zeilen Daten habe, das führt dazu das Excel beim einspielen leider
alle 2500 Zeilen berechnet, und das sehr lange dauert da die Datenspalten noch dazu bis BE gehen, wie kann ich das ändern.
Vielen DANK