alle Userformen löschen - Fehlermeldung
Thomas
habe folgendes Problem. Ich möchte alle Userformen aus der Excel-Datei löschen.
Dazu habe ich mir den VBA-Code aus dem Buch "Excel-Programmierung" zu Hilfe genommen.
Sub Userformen_löschen()
Dim VBComp As VBComponent
Dim VBComps As VBComponents
Dim str As String
Set VBComps = ActiveWorkbook.VBProject.VBComponents
str = MsgBox("Der folgende Code löscht sämliche UserForms aus dem aktiven Projekt." & Chr( _
10) & "möchten Sie fortfahren?", vbCritical + vbYesNo)
If str = vbYes Then
For Each VBComp In VBComps
If VBComp.Type = vbext_ct_MSForm Then VBComps.Remove VBComp
Next VBComp
End If
End Sub
"Fehler beim Kompilieren - Benutzerdefinierter Typ nicht definiert".
Wo liegt der Fehler oder wer kann mir andern anderen Weg zum löschen der Userformen aufzeigen?
Gruß Thomas
Anzeige