UserForm via Makro einfügen lassen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: UserForm via Makro einfügen lassen
von: stu
Geschrieben am: 30.09.2003 14:02:21

hallo!

ich habe ein userform erstellt und exportiert. ich möchte nun VBA dieses Userform einfügen lassen!

geht das?

Bild


Betrifft: AW: UserForm via Makro einfügen lassen
von: Ulf
Geschrieben am: 30.09.2003 14:10:56

Hi
was hast du genau vor willst du die Userform in eine andere Mappe importieren??

Ulf


Bild


Betrifft: AW: UserForm via Makro einfügen lassen
von: Nepumuk
Geschrieben am: 30.09.2003 18:14:02

Hallo,
ein Beispiel das ich neulich für jemanden geschrieben habe. Der automatische Export aller Userforms von einer Mappe mit anschließenden Import in eine andere Mappe.

Option Explicit
Public Sub alle_Userforms_exportieren()
    Dim vbc As Object, Dateiname As String
    Temp_loeschen
    For Each vbc In ThisWorkbook.VBProject.VBComponents
        With vbc.CodeModule
            If vbc.Type = 3 Then Workbooks(ThisWorkbook.Name).VBProject.VBComponents(vbc.Name).Export "C:\TEMP\" & vbc.Name & ".frm"
        End With
    Next vbc
    With Workbooks("Mappe2.xls").VBProject
        Dateiname = Dir("C:\TEMP\" & "*.*")
        Do While Dateiname <> ""
            If UCase(Right(Dateiname, 4)) = ".FRM" Then .VBComponents.Import "C:\TEMP\" & Dateiname
            Dateiname = Dir
        Loop
    End With
    Temp_loeschen
End Sub
Private Sub Temp_loeschen()
    Dim Dateiname As String
    Dateiname = Dir("C:\TEMP\" & "*.*")
    Do While Dateiname <> ""
        If UCase(Right(Dateiname, 4)) = ".FRM" Then Kill ("C:\TEMP\" & Dateiname)
        Dateiname = Dir
    Loop
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


 Bild

Beiträge aus den Excel-Beispielen zum Thema " UserForm via Makro einfügen lassen"