Addin beim starten ausführen
26.04.2018 14:01:33
Gabriel
Ich habe folgenden Code unter "Diese Arbeitsmappe" erstellt
Er soll beim Starten des Dokumentes überprüfen ob das Addin existiert. Wenn dies der Fall ist, wird es aktiviert, ansonsten wird es installiert und aktiviert.
Nach diesem Schritt soll das Makro, das in der Addin Datei steht gestartet werden. (Dies erstellt in der Menüleiste einen Knopf, der dann, mithilfe eines weiteren Makros, das Dokument entsprechend bearbeitet.)
(Bei "Pfad" und "Dateiname" steht bei mir das richtige ;))
Public Sub Workbook_Open()
Dim strName As String
Dim strKurzname As String
strName = "Pfad\Dateiname.xlam"
strKurzname = "Dateiname"
If Dir(strName) "" Then
AddIns(strKurzname).Installed = True
MsgBox "Das Addin " & strKurzname & " ist nun wieder aktiviert."
Else
AddIns.Add Filename:=strName
AddIns(strKurzname).Installed = True
MsgBox "Das Addin " & strKurzname & " ist nun installiert."
End If
Application.Run "'strKurzname & !prcCreateButton'"
End Sub
"Das Makro [...] kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert."