Guten Morgen,
ich kopiere ein WS aus einer Quelldatei in eine Zieldatei und möchte dieses kopierte WS ans Ende der Zieldatei setzen.
Das kopieren geht, aber das WS landet immer hinter dem aktuell markierten WS der Zieldatei.
Codeschnippsel (WSZ=Worksheet Zieldatei, WSQ=Worksheet Quelldatei, WBQ=Workbook Quelle, WBZ=Woorkbook Ziel):
Set WBQ = Workbooks.Open(Filename:=varDateien(lngAnzahl))
Set WSZ = WBZ.Sheets(Sheets.Count)
Set WSQ = WBQ.Worksheets(1)
WSQ.Copy after:=WSZ
auch
WSQ.Copy after:=sheets(sheets.count)
bringt nicht das erwünschte Ergebnis.
Hat jemand eine Idee, wo es hakt?
Danke,
Peter