Supportnet / Forum / Tabellenkalkulation

Guten Morgen! Besteht die Möglichkeit die vorhandene Add-Ins automatisch beim Öffenen einer Arbeitsmappe auszulesen und zu ermitteln welche gerade aktiv sind? Grund: Manche Funktionen benötigen bekanntlich bestimmte Add-Ins um zu funktionieren. Nun kommt es manchmal vor, dass z. B. das Add-In "Analyse-Funktionen" zwar vorhanden ist, dieses aber nicht markiert ist. In der Folge kommt es zu Problemen mit der Funktion "Monatsende". User A = Ersteller der Arbeitsmappe --> Add-In = aktiv User B = Benutzer der Arbeitsmappe --> Add-In = deaktiviert --> Probleme mit den vorhanden Funktionen Excel2000 Danke für die Unterstützung. Tom

Hallo Tom,

warum müssen alle ausgelesen werden? Warum nicht nur das benötigte?
Stelle es am Ende aber wieder in den Urzustand.

ADD In installieren
AddIns("AddIn-Name").Installed = True
Für AddIn-Name musst du den Namen so wie er im AddIn-Manager erscheint einsetzen.
If AddIns("Analyse-Funktionen").Installed = True Then
AddIns("Analyse-Funktionen").Installed = False
Else
AddIns("Analyse-Funktionen").Installed = True
End If

Gruß Hajo

Hi!

Danke für die schnelle Antwort.
Irgendwie mach ich wohl was falsch. Hm?!?

siehe dazu
http://www.netupload.de/detail.php?img=c2f9d39923d1ad1a12cd480c0aa62f25.xls

Da ich mich mit VBA nicht auskenne die Frage, was genau macht Dein Code?
Listet er in einer bestimmten Tabelle die vorhandene und aktiven Add-Ins auf?

Schön wäre es
Spalte A = Name des Add-Ins
Spalte B = 1 für aktiv oder 0 für inaktiv

Es müssen nicht alle aufgelistet werden.
Wichtig ist mir nur, dass eben auf "Analyse-Funktionen" geprüft wird und falls eben dieses bestimmte Add-Ins nicht vorhanden ist, der betroffene User eine Fehlermeldung (Wenn-Abfrage auf 1 oder 0) erhält.

Tom

Hallo Tom,

es macht sich immer gut, wenn man auf den Beitrag eingeht. Mein code listet nicht die Add ins auf, warum auch?

Du mußt meine Code bei Dir nur einbauen. z.b.
Sub Tom()
If AddIns("Analyse-Funktionen").Installed = false Then
´AddIns("Analyse-Funktionen").Installed = True
Msgbox "Analyse Funktion nicht aktiviert"
End If
End sub

Gruß Hajo

Hi!

Bevors ins Wochenende geht noch rasch eine Frage:
Ich habe ein Problem mit dem ´AddIns
--> Fehler beim Kompilieren
Sub oder Function nicht definiert

Warum ich eine Listung benötige?
Nun, da ich für eine Wenn-Abfrage wissen möchte, ob das benötigte Add-In vorhanden ist oder nicht wäre es nett, wenn ich wie beschrieben das Add-In in einer Zelle habe und 1 = aktiviert bzw. 0 für dekativiert erhalten.
Meine Wenn-Abfrage könnte dann ungefähr so aussehen.
=wenn(b1=1;"alles okay","Bitte Add-In ´Analyse-Funktionen´ über ... aktivieren).

Tom

• add-on
• Add-In für automatische Outlook Sicherung lässt sich nicht entfernen, Outlook 2000
• Add-Ons im IE 7 notwendig oder nicht?
• Outlook 2007 - fehlende ADD-ins deaktivieren, löschen .. aber wie?