Prüfen ob ein Add-In vorhanden ist

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:

• Microsoft Visual Basic for Applications Extensibility 5.3