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

AddIns: Prüfen, ob AddIn installiert ist:

Sub Pruefen_ob_AddIn_installiert_ist()
    Dim AddInName As String
    Dim intAddIn As Integer
    Dim AddInInstalliert As Boolean
    AddInName = "AUTOSAVE.XLA"
    ' 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
    MsgBox AddInName & " installiert: " & AddInInstalliert
End Sub

Dieser Tipp ist vom 11.07.2005