Liebe VBA-Profis,

ich brauche ein Makro, das in der ausgewählten Mappe alle VBA-Module löscht und im Idealfall aus einer weiteren Mappe ("Test.xlsm") alle VBA-Module in die nun leere Mappe kopiert. Ich komme mit "normalen" VBA-Inhalten zurecht, aber VBA über VBA ist mir zu hoch. Das unten ist weit davon entfernt zu funktionieren, aber ich habe leider keine Ahnung, wie ich das anstelle. Kann mir jemand helfen?

Herzlichen Dank!

Jan

Sub RemoveModules()

 

    Dim Component As Object

    Dim Mappe As Workbook

    Set Mappe = ActiveWorkbook

 

    For Each Component In Mappe.VBProject.VBComponents

        Component.CodeModule.Remove

    Next Component

 

End Sub