Ich möchte ja so wenig wie möglich mit "Select" arbeiten.
folgender Befehl läuft aber auf einen Fehler:
Workbooks("Sicherung Personaleinsatz " & I_jahr & ".xlsx").Sheets(monat).Range(Cells(b, I_tag), Cells(b + 91, I_tag)).Copy Destination:=Workbooks("Schichteinteilung 2016.xlsm").Sheets(ordner).Cells(1, 2)
So funktioniert es aber:
Workbooks("Sicherung Personaleinsatz " & I_jahr & ".xlsx").activate
Sheets(monat).select
Range(Cells(b, I_tag), Cells(b + 91, I_tag)).Copy
Workbooks("Schichteinteilung 2016.xlsm").activate
Sheets(ordner).Cells(1, 2).select
selection.PasteSpecial Paste:=xlPasteValues
Gruß
K. Jung