Hallo Helmut,
danke für die schnelle Antwort. Hier das Makro:
Workbooks.Add
Windows("Vorlage Auftrag anlegen.xls").Activate
Cells.Select
Selection.Copy
Windows("Mappe1").Activate
Cells.Select
ActiveSheet.Paste
Range("B3:G14").Select
Application.CutCopyMode = False
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("B3").Select
Sheets("Tabelle2").Select
Windows("Vorlage Auftrag anlegen.xls").Activate
Sheets("Stundenzettel").Select
Cells.Select
Selection.Copy
Windows("Mappe1").Activate
Cells.Select
ActiveSheet.Paste
Range("C2:C9").Select
Application.CutCopyMode = False
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("H20:H30").Select
Selection.Copy
Range("H20:H30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("G20:G30").Select
Selection.Copy
Range("G20:G30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("F20:F30").Select
Selection.Copy
Range("F20:F30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E20:E30").Select
Selection.Copy
Range("E20:E30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Tabelle2").Select
Sheets("Tabelle2").Name = "Stundenzettel"
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Auftrag"
Range("A4").Select
End Sub
Der Fehler liegt bei "Windows("Mappe1").Activate
Vielleicht hilft das schon weiter....