verfaßt von manes 
, Köln, 17.02.2021, 20:05:21
Hallo
> Alles unter den 10 wird nicht übertragen und auch aus der PayPal
> Aufbereiten raus gelöscht.
> Hab nicht den Part in deinem Code gefunden, der das verursacht.
In der Passage
With wsh_q
If .Range("A11") <> "" Then
letzte = .Range("A65536").End(xlUp).Row
.Range("A11:N" & letzten).Clear
End If
End With
wird geprüft.in welcher Zeile die letzte Eintragung in der Spalte A ist. Wenn von A11 abwärts nichts eingetragen ist, ist der Wert letzte = 10. Dementsprechend werden dann auch nur 10 Datensätze übertragen. So waren Deine Vorgaben!
Wenn Du möchtest, dass alles in den Spalten c bis f übertragen werden soll, dann vergiss die Variable letzte. In dem Fall müsstest Du vielmehr die kompletten Spalten übertragen, allerdings ohne die letzten 10 Zeilen, weil am Zielpunkt ja alles um 10 Zeilen nach unten versetzt eingefügt werden sollen.
M.a.W.
statt str_r = "#1:#" & letzte müsste es dann heißen
str_r = "#1:#" & 65526
Schaumerma, ob es so klappt.
Viel Erfolg
Manes
--
Also wenn ich ehrlich sein sollte, müsste ich lügen!
gesamter Thread: