mit folgendem code setze ich einen Verweis auf eine Programmbibliothek: Private Sub Workbook_Open() Dim objVbeAlea As Object Const strAleaGUID As String = "{A3074580-15F4-11CF-8EC0-0080C602F810}" On Error Resume Next Set objVbeAlea = Application.VBE.ActiveVBProject.References.AddFromGuid(strAleaGUID, 3, 0) Set objVbeAlea = Nothing UserForm1.Show End Sub
Der Verweis wird gesetzt, aber die Userform wird nicht geöffnet.
Wenn der Verweis bereits gesetzt ist wird die UF geöffnet.
Kann mir da jemand weiterhelfen?
Vielen Dank und viele Grüße
Christian