Ich habe da mal wieder ein Problem
Ich habe eine Excelanwendung gebastelt, die Daten aus verschiedenen Arbeitsmappen importiert und berechnet. Nach dem Import wird die Mappe neu benannt, die Grundanwendung bleibt jedoch unverändert. Beim schließen der neuen Mappe möchte ich nun, dass die Module und Userform's gelöscht werden.
Ich ich habe es mit dem Befehl
Sub module_löschen()
On Error Resume Next
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul4")
.VBComponents.Remove .VBComponents("Modul3")
.VBComponents.Remove .VBComponents("Modul2")
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents("Userform1")
.VBComponents.Remove .VBComponents("Userform2")
End With
End Sub
versucht, leider funktioniert dies nicht. Beim Neustart der neuen Mappe sind die Module und Userforms noch vorhanden und es erfolgt eine Fehlermeldung, da im Modul1 über auto_open auch ein Tabellenblatt angesprochen wird, dass es nicht mehr gibt.
Außerdem steuert auto_open auch den Start von Userform1
Har jemand eine Lösung zu meinem Problem, Dank im voraus