AddIns
07.02.2008 20:01:26
Jerry
Ich lade ein AddIn. Es ist in der Liste der AddIns vorhanden.
Jetzt schliesse ich XL und verschiebe das AddIn in einen Ordner eines anderen
Laufwerks zB, und lösche es am VORIGEN Platz.
Wenn ich XL öffne, ist das AddIn noch immer in der Liste und zwar mit
dem VORIGEN Pfad (FullName), ich kann
es aber NICHT vom NEUEN Pfad aus add(en) bzw installieren.
Wie kann man ein AddIn aus der LISTE LÖSCHEN.
Hier mein Code (der nicht funktioniert):
Public Sub blabla()
x = Application.AddIns.Count
For i = 1 To x
y = Application.AddIns(i).Name
z = Application.AddIns(i).FullName
t = Application.AddIns(i).Title
If y = "franz.xla" Then'nach dem Löschen bleibt es vorhanden in der AddIn-Aufzählung
If Not z = "C:franz.xla" Then Application.AddIns(i).Installed = False: GoTo rr
' VORHER war das AddIn in D: - C ist der neue Speicherplatz
If Application.AddIns(i).Installed = True Then
Run "franz.xla!ha"
Exit Sub
Else
Application.AddIns(i).Installed = True
Run "franz.xla!ha"
Exit Sub
End If
End If
Next i
rr:
Application.AddIns.Add ("C:\franz.xla")'funktioniert nicht
Application.AddIns("franz").Installed = True'funktioniert nicht
Run "franz.xla!ha"'findet franz nicht, weil es nicht mehr auf D liegt
End Sub
Mit bestem Dank für Eure Hilfe
Jerry