Sub Modul_einfügen()
    Application.DisplayAlerts = False
    'in diesem Ordner liegen alle Dateien
    Ordner = "c:\temp\"
    'dies ist das einzufügende Modul
    Moduldateiname = "C:\Temp\Modul1.bas"
    'so wird das Modul benannt
    Modulname = "Neues_Modul"
    'alle Dateien aus "Ordner öffnen"
    Application.ScreenUpdating = False
    TmpDat = Dir(Ordner & "*.xls")
    Do While TmpDat <> ""
        Workbooks.Open Ordner & TmpDat
        TmpDat = Dir()
    Loop
    'in alle geöffnete Arbeitsmappen
    'das Modul einfügen, Datei schließen mit Speicherung
    On Error Resume Next
    For x = 1 To Workbooks.Count
        With Workbooks(Workbooks(x).Name).VBProject
            .VBComponents.Import Moduldateiname
            .VBComponents(Workbooks(Workbooks(x).Name).VBProject _
            .VBComponents.Count).Name = Modulname
        End With
        'Workbooks(x).Close True
    Next x
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub