Liebes Forum!
Gestern wurde mir hier super geholfen. Auch die zur Diskussion gestellte Schleife funktioniert jetzt.
Nun eine weitere Frage. Was funktioniert ist:
XL.Sheets("ANZ").Select
XL.Sheets("ANZ").Move ,XL.Sheets(9)
Was nicht funktioniert ist: Hier die letzte Zeile!
XL.Workbooks.Open"Y:\xl_uebersicht.xlsx"
XL.Sheets("Sheet1").Select
XL.Selection.Copy ,XL.Workbooks("Y:\TEST.xlsx")
Vielen Dank schon mal!