' 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