VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Module von Mappe zu Mappe kopieren

Gruppe

VBE

Bereich

Standard

Thema

Module von Mappe zu Mappe kopieren

Problem

Wie kann ich Modulblätter von der einen zur anderen Arbeitsmappe kopieren und das neue Blatt benennen?

Lösung

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




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

    


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