Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Module von Mappe zu Mappe kopieren

Gruppe

Standard

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