Funktion
Diese Funktion prüft, ob ein bestimmtes Add-In vorhanden ist.
Code
Public Function IstAddInVorhanden(strAddIn As String) As Boolean
'Variablen deklarieren Dim intI As Integer Dim AddIns As VBIDE.AddIns
'Initialisieren IstAddInVorhanden = False
Set AddIns = Application.VBE.AddIns For intI = 1 To AddIns.Count If AddIns(intI).ProgId = strAddIn Then IstAddInVorhanden = True Exit Function End If Next Set AddIns = Nothing
End Function
Beschreibung
Die Funktion wird mit "False" initialsiert. Dann alle Add-Ins durchlaufen. Wenn der Name eines Add-Ins mit dem gesuchten Namen übereinstimmt, ist das Add-In vorhanden.
Verweise
Damit dieser Code funktioniert, ist folgender Verweis erforderlich: