Verweis setzen lassen
Reinhard
es gelingt mir nicht durch Code den Verweis auf MS Forms 2.0 setzen zu lassen. Bzw. das geht schon aber der Debugger bemängelt: Dim objkurz As New DataObject als unbekannten Typ.
Und, es sollte auf allen Versionen beginnend mit XL97 funktionieren *hoff*
Danke ^ Gruß
Reinhard
Option Explicit
#If VBA6 = 0 Then
Const FM20_GUID = "{C43ABEE0-5C8F-4D95-B2C1-05B898491C64}" 'XL97
#Else
Const FM20_GUID = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}" 'XL2000
#End If
Sub Haupt()
Call VerweisSetzen
Dim objkurz As New DataObject
End Sub
Sub VerweisSetzen()
Dim VBEObj As Object, objV As Object, Gesetzt As Boolean
For Each objV In ActiveWorkbook.VBProject.References
If objV.GUID = FM20_GUID Then
Gesetzt = True
Exit For
End If
Next objV
If Gesetzt = False Then
Set VBEObj = Application.VBE.ActiveVBProject.References.AddFromGuid(FM20_GUID, 2, 0)
End If
Set VBEObj = Nothing
End Sub
Anzeige