ich habe mit dem Makrorecorder versucht aufzuzeichnen, wie ein neues
Modul mit dem Namen "Muster" angelegt wird.
Das Makro hat allerdings kein Ergebnis angezeigt?
Geht sowas nicht?
Besten Dank für eine Hilfe!
mfg
Erich
Option Explicit
Sub Modul_anlegen()
Dim m As Object
Set m = Application.VBE.ActiveVBProject.VBComponents.Add(1)
m.Name = "Mein_neues_Modul"
End Sub
Sub ModulEinfügen()
Dim VBComp As VBComponent
Set VBComp = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
With VBComp.CodeModule
.InsertLines 1, "Sub MeinModul()"
.InsertLines 2, "'Durch Code eingefügt"
.InsertLines 3, " MsgBox ""Heureka"" "
.InsertLines 4, "End Sub"
End With
Set VBComp = Nothing
End Sub
Sub StandardModulHinzu()
Dim mdlWB As Object
Set mdlWB = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
Set mdlWB = Nothing
End Sub