ich möchte gerne Tabellenblätter asu einer anderen Datei in die aktuelle Arbeitsmappe
kopieren.
Bei meinem Code stürzt Excel jedoch ab, bzw. die Datei wird zwar geöffnet und die Tabellenblätter eingefügt, jedoch nicht wieder geschlossen. Schliesse ich die Datei
dann kommt der Absturz.
Danke!
Gruß
Sigi
Sub Blaetter_einfügen()
Dim sPath as String, sFile as String
Dim Wkb as Object
sPath = ThisWorkbook.Path
sFile = "Aufgabe.xlsm"
Set Wkb = Workbooks.Open(sPath & sFile, False)
' Wkb.Worksheets(Array("Auf_Pr", "Auf_Zu", "Auf_Data")).Select
With ThisWorkbook
Wkb.Worksheets(Array("Auf_Pr", "Auf_Zu", "Auf_Data")).Copy After:=.Worksheets(.Worksheets. _
Count)
End With
Wkb.Close savechanges:=False
End Sub