www.Russ-Jesteburg.de > Excel > VBA > Datei

AddIns: Selbstinstallierendes AddIn:

Sub AddIn_automatisch_installieren()
    Dim AddInName As String
    Dim intAddIn As Integer
    ' Damit dieser Code funktioniert, muss die
    ' Datei als Addin gespeichert werden!
    AddInName = ThisWorkbook.Name
    ' Die Namen aller installierten Addins prüfen ...
    For intAddIn = 1 To AddIns.count
        If AddIns(intAddIn).Name = AddInName Then
            AddInInstalliert = True
            Exit For
        End If
    Next intAddIn
    ' ... und AddIn ggf installieren
    If AddInInstalliert = False Then AddIns(AddInName).Installed = True
End Sub

Dieser Tipp ist vom 11.07.2005