UserFormen automatisch exportieren

[Anne Haubrich]

Hallo,

ich möchte meine UserFormen exportieren und als frm-Datei abspeichern.

Wie ist so etwas automatisiert per VBA möglich?

[Steffl]

Hallo Anne,

hilft dir das weiter?

[Fennek]

Hallo,

aus snb-vba.eu

Code:

Sub Userform_export()
With ThisWorkbook.VBProject.VBComponents("invoer")
.export"E:\OF\"&.Name & ".frm"
End With
End Sub

mfg

[Helvetier]

Hallo Anne
Ich schlage dies vor:

Code:

Sub Userform_als_frm_auslesen()
   With ActiveWorkbook.VBProject
       For n = .VBComponents.Count To 1 Step -1
           With .VBComponents(n)
               If .Type = 3 Then .Export ActiveWorkbook.Path & "\" & .Name & ".frm"
           End With
       Next
   End With
End Sub

[Anne Haubrich]

Danke euch allen. Ihr habt es mal wieder geschafft!!

[Helvetier]

Ihr habt es mal wieder geschafft!!

Wie immer .... seit 1940.