Hi!
Ich habe folgendes Problem:
Ich will in einer Vorlage (.xlt) Makros ausführen, und am Ende die Mappe auch per Makro(!) speichern. Vorher sollen jedoch alle makros gelöscht werden.
Das löschen an sich ist auch kein problem dank diesem Forum, das klappt schon so dass ich alle module bis auf dasjenige in dem der lösch-und speichercode drinsteht lösche.
Hier der lösch- und speichercode:
Dim vbc As Object
With Workbooks(1).VBProject
For Each vbc In .VBComponents
Select Case vbc.Type
Case 1, 2, 3: If vbc.Name "finalisieren" Then .VBComponents.Remove .VBComponents(vbc.Name)
Case 100
With vbc.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
ActiveWorkbook.SaveAs (filesavename)
ActiveWorkbook.Close Savechanges:=True
Wenn ich das ausführe und die datei dann geschlossen ist, kann ich im VB-Editor links immer noch die Module der Datei durchforsten, und da sind dann auch tatsächlich alle Module raus.
Wenn ich die gespeicherte Datei aber dann öffne, sind die Makros wieder da. Seltsamerweise sind die CodeZeilen, die unter "DieseArbeitsmappe" standen (Event-auslöser, mit VBComponents.Type 100) verschwunden (wie sie es ja sollten), aber die ganzen Module und UserForms (VBComponents.Type 1, 2 oder 3) sind noch da.
kann mir jemand helfen?