UF löschen

Forumthread: UF löschen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: UF löschen

UF löschen

31.05.2004 19:08:22

Gerald

Hallo und schöne Pfingsten noch :-)
Ich benötige einen Code, um alle Userforms einer Datei zu löschen.
Vielen Dank schon mal
Gerald

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: UF löschen

31.05.2004 19:32:43

Nepumuk
Vielen Dank Nepumuk und

Gerald
AW: Vielen Dank Nepumuk und

31.05.2004 20:32:15

Nepumuk
und nochmal VIELEN DANK

Gerald

AW: UF löschen

31.05.2004 19:32:43

Nepumuk

Hallo Gerald,
das geht so:

Public Sub loeschen_UserForms()
    Dim myVBC As Object
    With Workbooks("Testmappe.xls").VBProject
        For Each myVBC In .VBComponents
            If myVBC.Type = 3 Then .VBComponents.Remove .VBComponents(myVBC.Name)
        Next
    End With
End Sub

Gruß
Nepumuk

Vielen Dank Nepumuk und

Gerald

eine kleine Frage noch. diese Typbezeichnung : If myVBC.Type = 3
Wo finde ich denn eine Übersicht darüber? Die 3 deklariert doch sicher die Userform oder liege ich da total falsch.
Danke schon mal
Gerald

AW: Vielen Dank Nepumuk und

31.05.2004 20:32:15

Nepumuk

Hallo Gerald,
ist ein bisschen schwierig zu finden. Offne mal den Objektkatalog und gib als Suchbegriff vbext_ct_MSForm ein. In der Statusleise des Kataloges bekommst du erstens den Wert der Konstante angezeit und des Verweis auf das Objekt (Element von VBIDE.vbext_ComponentType). Wenn du nun auf diesen grünen Text einen Rechtsklick machst und im Popupfenster das Fragezeichen anklickst, so bekommst du die entsprechende Seite in der Hilfe angezeigt.
Gruß
Nepumuk

und nochmal VIELEN DANK

Gerald

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!