Sheet(Array(..)).Select funktioniert nicht
23.08.2013 16:27:00
SK
ich habe ein Workbook mit mehreren Sheets, wovon immer mehrere zusammengehörige in ein neues Workbook kopiert werden soll.
Folgenden Code verwende ich:
Sheets(wert).Select
Sheets(last).Activate
Sheets(wert).Copy
ActiveWorkbook.Colors = Workbooks(Colorfile).Colors
ActiveWorkbook.SaveAs Pfad1 & ste(i), FileFormat:=xlExcel8
Aus irgend einem Grund werden die zusammengehörigen Sheets aber nicht ausgewählt. Die Variable wert hat z.B. folgenden Inhalt: Array("MK3 DA", "MK3 KST")
last hat "MK3 KST"
Verwende ich statt dessen folgenden Code zum Testen mit statischen Werten:
Sheets(Array("MK3 DA", "MK3 KST")).Select
Sheets("MK3 KST").Activate
Sheets(Array("MK3 DA", "MK3 KST")).Copy
funktioniert alles. Ich hab ehrlich gesagt keine Idee mehr :(