Userform starten klappt nicht
Reinhard
zur Laufzeit der Userform "frmAlt" erstelle ich die UF "frmNeu".
Wie bekomme ich diese UF angezeigt?
Die Prozedur "Erzeugen" wird durch einen CB auf der UF "frmAlt" gestartet.
Wie im Code ersichtlich habe ich schon einiges probiert, aber nicht das Richtifge entdeckt um frmNeu anzuzeigen.
Danke ^ Gruß
Reinhard
Option Explicit
Sub Erzeugen()
Dim myUF As Object
Call Loesch
ThisWorkbook.Save 'muß sein sonst Fehler wegen doppeltem Namen
Set myUF = ThisWorkbook.VBProject.VBComponents.Add(3)
With myUF
.Name = "frmNeu"
End With
Unload frmAlt
'DoEvents
'Load frmNeu
'frmNeu.Show
'UserForms("frmNeu").Show 0
'ThisWorkbook.VBProject.VBComponents("frmNeu").Show 0
End Sub
Sub Loesch()
Dim UF
For Each UF In ThisWorkbook.VBProject.VBComponents
If UF.Name Like "frmNeu*" Or UF.Name Like "UserForm*" Then
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents(UF.Name)
End If
Next UF
End Sub
Anzeige