Addin installiert ?
05.08.2004 14:13:04
Bernhard
ich habe folgende paradoxe Situation:
Beide Codezeilen produzieren jeweils 'Index außerhalb des gültigen Bereichs':
Debug.Print Workbooks.Item("wacker-process-explorer").IsAddin
Debug.Print Application.AddIns("wacker-process-explorer").Installed
Folgender Code liefert MessageBox mit "true" zurück und belegt dadurch, dass das Addin läuft, aber irgendwie nicht registriert ist
(siehe auch Antwort
Sub Aufruf()
MsgBox ExistsAddIn("wacker-process-explorer.xla")
End Sub
Function ExistsAddIn(sFile As String) As Boolean
Dim wkb As Workbook
On Error Resume Next
Set wkb = Workbooks(sFile)
If Err = 0 Then ExistsAddIn = True
On Error GoTo 0
End Function
Durch den Hinweis von Herrn Herber ist es zwar möglich, zu testen, ob das Addin installiert ist. Für meine Zwecke wäre es aber notwendig, das Addin kurzzeitig mittels
Application.AddIns("wacker-process-explorer").Installed = false
zu deinstallieren, was aber einen Laufzeitfehler verursacht.
Für Hilfe wäre ich sehr dankbar.
Gruß,
Bernhard