Wie exportiert man alle Makros aus einer Arbeitsmappe in eine andere?

Wenn Sie mehrere VBA-Makros aus einer Arbeitsmappe in eine andere exportieren möchten, müssten Sie diese normalerweise einzeln kopieren – ein zeitaufwändiger Prozess. In diesem Artikel zeige ich Ihnen, wie Sie alle Makros schnell aus einer Arbeitsmappe exportieren und gleichzeitig in einem bestimmten Ordner speichern können.

Exportieren aller Makros aus einer Arbeitsmappe in eine andere mithilfe von VBA-Code

---

Exportieren aller Makros aus einer Arbeitsmappe in eine andere mithilfe von VBA-Code

Um alle VBA-Makrocodes aus einer Excel-Datei in eine andere zu exportieren, führen Sie bitte die folgenden Schritte aus:

1. Öffnen Sie zunächst beide Arbeitsmappen gleichzeitig: eine enthält die Makros, die andere ist diejenige, in die Sie die Makros exportieren möchten. Siehe Screenshot:

Office Tab – Öffnen, Lesen, Bearbeiten und Verwalten mehrerer Office-Dokumente in einem einzigen Fenster mit Registerkarten Office Tab ermöglicht tabbasiertes Surfen, Bearbeiten und Verwalten in Microsoft Office-Anwendungen. Öffnen Sie mehrere Dokumente oder Dateien ganz bequem in einem einzigen Fenster – mit übersichtlichen Registerkarten, genau wie in Browsern wie IE 8/9/10, Firefox und Google Chrome.Klicken Sie hier, um die kostenlose Testversion jetzt herunterzuladen!

2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro im Modul-Fenster ein.

VBA-Code: Exportieren aller Makros aus einer Arbeitsmappe in eine andere:

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub

Hinweis: Im obigen Code lautet „alte-arbeitsmappe“ der Name der Arbeitsmappe, aus der Sie die Makros exportieren möchten, und „neue-arbeitsmappe„ ist die Arbeitsmappe, in die Sie die Makros importieren möchten. Passen Sie die Namen entsprechend an. Beide Arbeitsmappen müssen das Format xlsmDateityp sein.

4. Drücken Sie nach dem Einfügen des obigen Codes die Taste F5, um ihn auszuführen. Daraufhin wird ein Durchsuchen-Fenster angezeigt. Wählen Sie einen Ordner aus, in dem die exportierten Makrodateien gespeichert werden sollen. Siehe Screenshot:

5. Klicken Sie anschließend auf die Schaltfläche OK, um alle Makros aus Ihrer angegebenen Arbeitsmappe in eine andere Excel-Datei zu exportieren. Gleichzeitig werden die Makrodateien im angegebenen Ordner gespeichert. Siehe Screenshot:

Hinweis: Dieser Code exportiert Makros ausschließlich aus normalen Modulen.