Anzeige
Archiv - Navigation
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UF löschen

UF löschen
31.05.2004 17: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
Anzeige
AW: UF löschen
31.05.2004 17: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
Anzeige
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 18: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
Anzeige
und nochmal VIELEN DANK
Gerald

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige