ich habe folgendes Problem:
Ich habe eine Symbolleiste, die per AddIn eingefügt wird.
Die Leiste beinhaltet ein Button für Aktualisierung mit .OnAction = "!aktual"
Das läuft einwandfrei wenn Modul "aktual" in der aktiven Arbeitmappe gespeichert ist.
Inhalt ganz simpel:
Sub addin_aktual
AddIns("Tool").Installed = False
AddIns("Tool").Installed = True
End Sub
Nun wollte ich diese Aktualisierung dynamisch gestalten und zwar mit folgendem Modul:
statt .OnAction = "!aktual" kommt .OnAction = "ModulEinfügen"
und das Modul:
Sub ModulEinfügen()
Dim tempmodul As Object
Set tempmodul = ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
With tempmodul.CodeModule
.InsertLines 2, "
Sub aktual()"
.InsertLines 3, "AddIns(""Tool.xla"").Installed = False"
.InsertLines 4, "AddIns (""Tool.xla"").Installed = True"
.InsertLines 5, "End Sub
"
End With
Set tempmodul = Nothing
finde
End Sub
Sub finde()
Dim datei As Variant
datei = ActiveWorkbook.Name
Application.Run datei & ("!aktual")
End Sub
Wenn ich aber auf diesem Wege auf das Makro aktual zugreife kommt eine Fehlermeldung Laufzeitfehler '1004':
Microsoft Excel kann das Makro 'Mappe1.xls!aktual' nicht finden.
Die Mappe1.xls ist gespeichert und vorhanden
Woran liegt es? Ist so was überhaupt möglich? Danke.