Problem mit AddIn / VBA
16.02.2004 10:27:05
Russi
Ich hoffe, jemand von Euch kann mir sagen, wo der Fehler in meinem Makro liegt. Ich recherchiere jetzt schon stundenlang im Netz aber finde keinen Fehler. Ich erhalte beim Befehl "AddIns.Add" eine Fehlermeldung ("Add-Methode fehlerhaft").
Das Makro wird in der Workbook-Open-Prozedur eines Addins ausgeführt. Sie soll erst prüfen, ob das aufgerufene AddIn in der Liste der verfügbaren Addins vorhanden ist, es ggf. hinzufügen und ggf. installieren.
Hier der Code:
Private Sub Workbook_Open()
Dim AddInIndex As Integer
Dim AddInVorhanden As Boolean: AddInVorhanden = False
For AddInIndex = 1 To AddIns.Count
If AddIns(AddInIndex).Name = ThisWorkbook.Title Then AddInVorhanden = True
Next AddInIndex
If AddInVorhanden = False Then AddIns.Add FileName:=ThisWorkbook.FullName, CopyFile:=True
If AddIns("RUSSI").Installed = False Then AddIns("RUSSI").Installed = True
End Sub
DANKE schon im Voraus für jeden Tip!!!
Russi
Anzeige