noch als weiteren hinweis, dass mein ausgangscode nicht ganz falsch ist, ist die tatsache, dass sich excel beendet, wenn ich aus dem original post folgenden Teil entferne
'Clear workbook2
Set excWkb2 = excApp.Workbooks.Open(FILE_IMPORT)
With excWkb2.ActiveSheet
.Range("A2").Select
.Range(Selection, Selection.End(xlDown)).Select
.Range(Selection, Selection.End(xlToRight)).Select
excWkb2.Application.Selection.ClearContents
.Range("A2").Select
excWkb2.Application.CutCopyMode = False
End With
'Copy content from workbook1 to workbook2
excWkb.Activate
With excWkb.ActiveSheet
.Range("A2").Select
.Range(Selection, Selection.End(xlDown)).Select
.Range(Selection, Selection.End(xlToRight)).Select
excWkb.Application.Selection.Copy
.Range("A2").Select
excWkb2.Activate
'excWkb2.Application.ActiveCell.PasteSpecial
'excWbk2.ActiveSheet.Range("A2").Select
excWkb2.Application.ActiveSheet.Paste
excWkb2.Save
excWkb.Application.CutCopyMode = False
End With
|