Um zu ueberpruefen ob verweise installiert sind!
Ich habe folgenen code geschrieben:
------------------------------
Function Verweis_installiert(Verweisname) As Boolean
On Error GoTo Fehler
Verweis_installiert = False
Set VBE = ThisWorkbook.VBProject
With VBE
MsgBox UCase(.References(x).Name)
For x = 1 To .References.Count
If UCase(.References(x).Name) = UCase(Verweisname) Then
Verweis_installiert = True
Exit Function
End If
Next x
End With
GoTo Ende
Fehler:
MsgBox "an error has occured... VerweiseModule/ Verweis_installiert"
Ende:
End Function
---------------------------
Ich habe das getestet im excel 2000, jetzt habe ich excel 2003 und da bleibt die variable vbe ungestetzt und das ganze geht in den Fehler:
Die frage warum?
habe ich irgendwas vergessen einzubinden oder so? wie geseagt im excel 2000 fusionierte das noch
Gruss
horst