Excel eigene AddIns installieren/abfragen

Hallo guten Morgan an alle zusammen,
mit den beiden nachfolgenden kleinen Makros kann ich ja die Excel eigenen AddIns aktivieren bzw. deaktivieren sofern diese auch installiert worden sind.


Sub AddIns_deaktivieren()
AddIns("Analyse-Funktionen").Installed = False
AddIns("Analyse-Funktionen - VBA").Installed = False
AddIns("Internet-Assistent VBA").Installed = False
AddIns("Solver").Installed = False
AddIns("Teilsummen-Assistent").Installed = False
AddIns("Verweis-Assistent").Installed = False
End Sub


Sub AddIns_aktivieren()
AddIns("Analyse-Funktionen").Installed = True
AddIns("Analyse-Funktionen - VBA").Installed = True
AddIns("Internet-Assistent VBA").Installed = True
AddIns("Solver").Installed = True
AddIns("Teilsummen-Assistent").Installed = True
AddIns("Verweis-Assistent").Installed = True
End Sub

Was muss ich aber machen, da mein Programm die vorgenannten AddIns zum arbeiten benötigt, das diese nicht nur aktiviert werden sondern falls diese auch noch nicht installiert sind eine Info an den Anwender ausgegeben werden muss, das die fehlenden AddIns ggfs. installiert werden müssen?
Ich hoffe das ist verständlich ausgedrückt.
Wer kann mir bitte helfen?
Liebe Grüße
Claudia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Function AddIns_aktivieren() As String Dim strMsg As String On Error Resume Next AddIns("Analyse-Funktionen").Installed = True If Err.Number <> 0 Then strMsg = strMsg & "Analyse-Funktionen" Err.Clear AddIns("Analyse-Funktionen - VBA").Installed = True If Err.Number <> 0 Then strMsg = strMsg & Chr(13) & "Analyse-Funktionen - VBA" Err.Clear AddIns("Internet-Assistent VBA").Installed = True If Err.Number <> 0 Then strMsg = strMsg & Chr(13) & "Internet-Assistent VBA" Err.Clear AddIns("Solver").Installed = True If Err.Number <> 0 Then strMsg = strMsg & Chr(13) & "Solver" Err.Clear AddIns("Teilsummen-Assistent").Installed = True If Err.Number <> 0 Then strMsg = strMsg & Chr(13) & "Teilsummen-Assistent" Err.Clear AddIns("Verweis-Assistent").Installed = True If Err.Number <> 0 Then strMsg = strMsg & Chr(13) & "Verweis-Assistent" AddIns_aktivieren = strMsg End Function Sub Beispiel() Dim sMsg As String sMsg = AddIns_aktivieren If sMsg <> "" Then MsgBox "Diese Addins konnten nicht installiert werden!" & String(2, Chr(13)) & sMsg, vbCritical End If End Sub

Beliebteste Forumthreads (12 Monate)

Excel eigene AddIns installieren/abfragen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread