Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Makro aus einer Arbeitsmappe in die Personl.xls kopieren

Gruppe

Prozedur

Problem

Ein Makro aus einer Arbeitsmappe soll in die Personl.xls kopiert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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