Inhaltsverzeichnis
Wenn Sie kein komplettes Modul hinzufügen möchten, können Sie nur die fehlenden Prozeduren hinzufügen
zu einem vorhandenen Modul, indem Sie das Makro unten verwenden. Es fügt den Inhalt einer Textdatei zu einem bestehenden Modul hinzu:
Sub ImportModuleCode(ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) ' importiert Code in ModuleName in wb aus einer Textdatei namens ImportFromFile Dim VBCM As CodeModule If Dir(ImportFromFile) = "" Then Exit Sub On Error Resume Next Setze VBCM = wb.VBProject.VBComponents(ModuleName).CodeModule Wenn nicht VBCM ist nichts Then VBCM.AddFromFile ImportFromFile Setze VBCM = nichts End If On Error GoTo 0 End Sub
Beispiel:
ImportModuleCode ActiveWorkbook, "TestModule", "C:\Ordnername\NewCode.txt"
