' Funktion, um ein AddIn zu aktivieren
Public Function ActivateAddIn(strAddInName As String) As Boolean
    Dim AD As AddIn
    Dim isInstalled As Boolean
    isInstalled = False

    ' Überprüfen, ob das Addin bereits installiert ist
    For Each AD In Application.AddIns
        If StrComp(AD.Name, strAddInName, vbTextCompare) = 0 Then
            If Not AD.Installed Then AD.Installed = True
            ActivateAddIn = True
            Exit Function
        End If
    Next

    ' Versuch, das Addin zu finden und zu installieren, wenn es nicht bereits installiert ist
    If Not isInstalled Then
        Dim addInPath As String
        addInPath = FindAddInPath(strAddInName)
        If addInPath <> "" Then
            Set AD = Application.AddIns.Add(Filename:=addInPath)
            AD.Installed = True
            ActivateAddIn = True
        Else
            ActivateAddIn = False
        End If
    End If
End Function