ich bin auf ein Problem bezüglich dynamischer Userforms gestoßen.
Das Problem habe ich in folgendem Code zusammengefaßt.
Sub test()
Set frmTemp = ThisWorkbook.VBProject.VBComponents.Add(3)
frmTemp.Properties("Name") = "frmTest"
With ThisWorkbook.VBProject
.VBComponents.Remove .VBComponents(frmTemp.Name)
End With
ThisWorkbook.Save
Set frmTemp = ThisWorkbook.VBProject.VBComponents.Add(3)
frmTemp.Properties("Name") = "frmTest" 'Path/File access error
End Sub
Es wird eine Userform angelegt, später gelöscht, und dann wieder angelegt.
Das Löschen funktioniert scheinbar auch, die Userform ist weg.
Nun funktionert das neuerliche Anlegen der Userform aber nur, wenn die Datei zwischendurch gespeichert wird.
ThisWorkbook.Save
Das möchte ich aber nicht, da es an dieser Stelle nicht nötig ist.
Ohne das Speichern kommt es aber in der letzten Zeile zum Fehler der im Kommentar steht.
Offenbar greift das Remove nicht komlett durch.
Ich habe (auch hier im Forum) nach Lösungen gesucht und etliches ausprobiert -> kein Erfolg.
Hat da jemand einen Tip?
Besten Dank
BCM