Addin beim starten ausführen

Guten Tag zusammen
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

Jedoch erscheint beim Starten der Datei (nach der MsgBox) folgende Fehlermeldung:
"Das Makro [...] kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert."

Hallo Rudi
Vielen Dank für die schnelle Hilfe. :)
Beim Öffnen der Datei erscheint nun keine Fehlermeldung mehr, die Menüleiste wird jedoch leider auch nicht angepasst.
Wenn ich jedoch alle Schritte mit F8 einzeln ausführe, springt es in prcCreateButton und die Menüleiste wird angepasst.
Das Sub zum Anpassen der Menüleiste sieht wie folgt aus:

Option Explicit
Option Private Module
Public Sub prcCreateButton()
Dim myCommandBar As CommandBar
Dim myCommandBarButton As CommandBarButton
Set myCommandBar = Application.CommandBars("Worksheet Menu Bar")
Set myCommandBarButton = _
myCommandBar.Controls.Add(Type:=msoControlButton, _
Before:=myCommandBar.Controls.Count + 1, Temporary:=True)
With myCommandBarButton
.BeginGroup = True
.Caption = "Speichern und hochladen"
.FaceId = 3
.OnAction = "Stammdatenmakro"
.Style = msoButtonIconAndCaption
.TooltipText = "Speichern & als csv. hochladen"
.Tag = "Speichern & hochladen"
End With
Set myCommandBar = Nothing
Set myCommandBarButton = Nothing
End Sub

Noch einmal vielen Dank und gruss,
Gabriel :)

Forumthread: Addin beim starten ausführen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial