Herbers Excel-Forum - das Archiv

Userform Importieren

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

Betrifft: Userform Importieren
von: Alex
Geschrieben am: 01.10.2003 12:34:10
hi!
wie schon erwähnt, hab ich ein userform exportiert. dieses habe ich bereits extern abgespeichert. es geht nun darum, dieses userform automatisch an eine
exceldatei anhängen zu lassen.
könnte mir jemand (Nepomuk? - von ihm ist die u.a. vorlage) sagen, wie ich den Code ummodellieren muss, damit mir dieses userform eingefügt wird?
bitte, danke!

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

Bild

Betrifft: AW: Userform Importieren
von: Nabriss
Geschrieben am: 01.10.2003 14:26:33
Hallo Alex!
Ich habe den Code probiert,
Es funktioniert Export so wie Import.
Gruß
Nabriss
 Bild
Excel-Beispiele zum Thema " Userform Importieren "
Diagramm in Userform XL-Dateien in UserForm listen
UserForm an Excel-Fenster anpassen Fundstellen in UserForm listen
Module und UserForms austauschen In einer Schleife auf Elemente einer UserForm zugreifen
Werte in eine ComboBox einer UserForm übernehmen Zellinhalt als Label-Aufschrift in UserForm
Alle CheckBoxes einer UserForm ansprechen Wenn kein Eintrag, UserForm nicht schließen