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
|