ich will eine xla erstellen, die den Verweis auf Microsoft Forms 2.0 Object Libraray benötigt. Der Verweis zielt in XL97 auf eine andere Datei als in XL2000, deshalb sind auch die Guid-Nummern verschieden.
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
Ich hatte schonmal XL2003 da klappte das auch. Was ich nun nicht weiß, mangels XL2007, klappt das auch in XL2007?
Der eigentliche Verweis wird dann so (Nepumuk war damals so nett mir den Code zu basteln) gesetzt:
Sub VerweisSetzen2()
Dim intIndex As Integer, blnFound As Boolean
On Error GoTo err_exit
With ThisWorkbook.VBProject.References
For intIndex = 1 To .Count
If .Item(intIndex).GUID = FM20_GUID Then
If .Item(intIndex).IsBroken Then
.Remove .Item(intIndex)
Else
blnFound = True
End If
End If
Next
If Not blnFound Then .AddFromGuid GUID:=FM20_GUID, Major:=2, Minor:=0
End With
Exit Sub
err_exit:
MsgBox "Fehler " & CStr(Err.Number) & vbLf & _
vbLf & Err.Description, vbCritical, "Fehler"
End Sub
Gruß
Reinhard