wie nachstehend beschrieben für das AddIn Analyse-Funktionen. Wobei Plug_In = Zelle gleichen Namens, in der eine Formel hinterlegt ist, die bei IstFehler einen Fehlerwert, ansonsten "", ausgibt. Die zweite Prüfung ist deshalb sinnvoll, weil unter bestimmten Rahmenbedingungen der Befehl AddIns("Analyse-Funktionen").Installed = True in Excel 97 nicht greift. Das scheint ein Bug in xl zu sein.
Gruß
Björn
Sub Workbook_Open()
Application.ScreenUpdating = False
If AddIns("Analyse-Funktionen").Installed = False Then
AddIns("Analyse-Funktionen").Installed = True
Calculate
End If
If [Plug_in] = 0 Then
AddIns("Analyse-Funktionen").Installed = False
AddIns("Analyse-Funktionen").Installed = True
Calculate
End If
Application.ScreenUpdating = True
End Sub