hab noch mal ne Frage, ich hab in der Recherche die Möglichkeit gefunden Module in eine neue Mappe zu kopieren. Das klappt soweit auch gut, doch wie kann ich DieseArbeitsmappe(Klassmodul(cls)) in die neue Mappe kopieren, so das auch das Workbook_Open ereignis funzt, mit unten stehenden Code funktionierts leider nicht.
Dim sPath As String
Dim sPath2 As String
sPath = Application.DefaultFilePath & "\temp.bas"
sPath2 = Application.DefaultFilePath & "\temp.cls"
ThisWorkbook.VBProject.VBComponents("Modul1").Export sPath
ActiveWorkbook.VBProject.VBComponents.Import sPath
Kill sPath
ThisWorkbook.VBProject.VBComponents("DieseArbeitsmappe").Export sPath2
ActiveWorkbook.VBProject.VBComponents.Import sPath2
Kill sPath2
Vieleicht hat jemand nen Tip für mich, danke.
MfG Peter