Zu blöd zum Modul löschen......
02.02.2006 13:11:10
R.Schmitt
entweder zu gut gegessen, oder zuwenig Kaffe getrunken.
Vieleicht auch einfach zu blöd, um ein Modul zu löschen.
Damit lässt sich mein Problem ganz gut umschreiben.
Ich habe es gerade mit einer Datei zu tun, die ich als
AddIn abgesoeichert habe und aus der ich ein Modul1
löschen möchte :
Sub Modulraus()
Dim Datei
Datei = ActiveWorkbook.Sheets("Tabelle1").Range("d5").Text
Application.EnableEvents = False
Workbooks.Open Filename:="C:\Auftragsrunde\" & Datei
Workbooks(Datei).IsAddin = False
With Workbooks(Datei).VBProject
.VBComponents.Remove .VBComponents("Modul1")
End With
Workbooks(Datei).SaveAs "C:\Auftragsrunde\" & Datei
Workbooks(Datei).Close
Application.EnableEvents = True
End Sub
Aber das Teil ist hartnäckig und bleibt mir erhalten.
Hat jemand eine Ahnung, woran es liegt ?
Viele Grüße
P.Daxhammer