Ich habe in diesem Forum folgendes Makro gefunden. Ich möchte aber immer nur ein Modul importieren und nur in die personl.xls speichern, damit ich es immer aufrufen kann.
Für Tipps im Voraus vielen Dank.
Tom
Sub Modul_einfügen()
Application.DisplayAlerts = False
Ordner = "I:\Makro\"
Moduldateiname = InputBox("Wie heisst das Modul?", "", "I:\Makros\Neues_Modul.bas")
Modulname = InputBox("Wie heisst das Modul?", "", " *.bas")
'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