Modul in neue Arbeitsmappe kopieren
05.07.2016 11:45:51
Rookie
ich habe einen Code mit dem ich Module aus einer Arbeitsmappe in eine andere kopieren kann. Der Code funktioniert aber nur, wenn dieser aus einer Excel-Datei mit der Endung .xlsm ausgeführt wird. Wenn ich nun aus dieser Datei eine Vorlage (also .xltm) mache, funktioniert der Code nicht mehr.
Es erscheint folgende Fehlermeldung:
Laufzeitfehler '50035'
Die Methode 'Expot für das Objekt '_VBComponent' ist fehlgeschlagen
Könnt ihr mir hier weiterhelfen? Warum funktioniert der Code in der .xltm-Datei nicht?
Hier der Code
Sub Copy ()
Dim sPath As String
sPath = ThisWorkbook.Path & "\"
ThisWorkbook.VBProject _
.VBComponents("transfer").Export sPath & "transfer.bas"
With ActiveWorkbook.VBProject
.VBComponents.Import sPath & "transfer.bas"
.VBComponents("transfer").Name = "feedback"
End With
Kill sPath & "\transfer.bas"
End Sub
Vielen Dank schon mal!
Mit besten Grüßen
Stefan
Anzeige