Wie kann man per VBA ein bestimmtes oder aber alle Module
l�schen ?
'L�schen von Modul2
Sub Modul_L�schen()
Set VBP = Application.VBE.ActiveVBProject
VBP.vbComponents.Remove VBP.vbComponents("Modul2")
End Sub
'Bestimmte Module l�schen
Sub Bestimmte_Module_l�schen()
Dim Namen(1 To 3)
Namen(1) = "Modul1"
Namen(2) = "Modul2"
Namen(3) = "Modul3"
For x = 1 To UBound(Namen)
Set VBP = Application.VBE.ActiveVBProject
VBP.vbComponents.Remove VBP.vbComponents(Namen(x))
Next x
End Sub
'alle Module l�schen
Sub Alle_Module_l�schen()
Set VB = Application.VBE.ActiveVBProject
For Each Objekt In ThisWorkbook.VBProject.vbComponents
If Objekt.Type = 1 Then VB.vbComponents.Remove _
VB.vbComponents(Objekt.Name)
Next Objekt
End Sub
|