Thema: Makro aus einer Arbeitsmappe in die Personl.xls kopieren

StandardModule: basMyCode

Sub Meldung()
   MsgBox "Hallo " & Application.UserName & "!"
End Sub
StandardModule: basMain

Sub CopyInPersonlXLS()
   Dim vbC As Object
   Dim iRow As Integer
   Dim sCode As String
   On Error GoTo ERRORHANDLER
   With ThisWorkbook.VBProject.VBComponents("basMyCode").codemodule
      sCode = .Lines(1, .CountOfLines)
   End With
   Set vbC = Workbooks("Personl.xls").VBProject.VBComponents.Add(1)
   vbC.codemodule.deletelines 1, vbC.codemodule.CountOfLines
   vbC.codemodule.AddFromString sCode
   Exit Sub
ERRORHANDLER:
   MsgBox "Das Makro konnte nicht kopiert werden!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen VBE und Prozedur