Userform löschen - Laufzeitfehler 1004
stefanseevetal
Zunächst einmal eine kurze Korrektur: Ich habe Office 2010, das kann man hier ab noch nicht auswählen.
Ich möchte per button meine Module und vor allem mein Userform löschen, da dieses ansonsten bei jedem neuen Start der Arbeitsmappe angezeigt wird. Ich habe auch schon einige Vorschläge dazu gefunden und es bspw. damit versucht:
Sub Module_UserFormen_entfernen()
'alle Module, UserFormen und Klassenmodule entfernen
Dim Ding As Object
With ThisWorkbook.VBProject
For Each Ding In ThisWorkbook.VBProject.VBComponents
'Type 100 = DieseArbeitsmappe und alle Tabellen
'Type 1 = Modul
'Type 3 = UserForm
'Type 2 = Klassenmodul
If Ding.Type 100 Then
.VBComponents.Remove Ding
End If
Next
End With
End Sub
Danke und Gruß
Stefan
Anzeige
