Stimmt, "AuchMalGast" ist ja absolut nicht anonym und du benutzt ja sowohl Anspache als auch Grußformel....
Wenn du einen Hauch von Ahnung von VBA hättest, wüsstest du, dass meine Antwort die Lösung des Problems ist, da bei
.Cells(i, "A").Resize(, 268).Copy wbZiel.Sheets("Master Data").Range("d4")
wbZiel.SaveAs Filename:=strPath & "\" & .Cells(i, "jj")
.PasteSpecial Paste:=xlValues
direkt nach dem Copy-Befehl mit SaveAs die Datei gespeichert wird. Dabei wird immer automatisch der Zwischenspeicher (Clipboard) gelöscht und es gibt nix mehr zu pasten !!!
NULL AHNUNG, ABER KLUGSCHEISSEN !!!!
|