Gruppe
VBE
Problem
Wie kann ich Modulblätter von der einen zur anderen Arbeitsmappe kopieren und das neue Blatt benennen?
StandardModule: basMain
Sub CopyModule()
Dim sPath As String
sPath = Application.Path & "\"
ThisWorkbook.VBProject _
.VBComponents("basMain").Export sPath & "basMain.bas"
Workbooks.Add 1
With ActiveWorkbook.VBProject
.VBComponents.Import sPath & "basMain.bas"
.VBComponents("basMain").Name = "MyModul"
End With
Kill sPath & "\basMain.bas"
MsgBox "Modul wurde kopiert!"
End Sub