Module Löschen
07.07.2005 12:34:31
Matthias
Unter recherche fand ich folgendes makro zum löschen von modulen
Sub Loeschen()
Dim cmp As VBComponent
For Each cmp In ThisWorkbook.VBProject.VBComponents
With cmp.CodeModule
.DeleteLines 1, .CountOfLines
End With
If cmp.Type = 1 Or cmp.Type = 2 Then
cmp.Collection.Remove cmp
End If
Next cmp
End Sub
aber es Funktionier nicht so ganz wie ich es mir Vorgestellt habe
im der recherche steht auch noch
das ich
Sub Loeschen()
Dim cmp As (VBComponent) 'durch (Object) ersetzen soll habe ich auch gemacht aber ich bekomme immer eine Fehler meldung
For Each cmp In ThisWorkbook.VBProject.VBComponents ' hatte ich auch schon VBComponents durch Object ersetz
With cmp.CodeModule
.DeleteLines 1, .CountOfLines
End With
If cmp.Type = 1 Or cmp.Type = 2 Then
cmp.Collection.Remove cmp
End If
Next cmp
End Sub
Bitte um eure hilfe