Makro in "anderem" Workbook
26.01.2004 17:59:19
Holger
Also ich erstelle per Makro ein neues Workbook ("NeuesBook.xls"). In dieses neue Workbook exportieren ich die Prozedur (Makro) "ShowMore()" mit
Application.VBE.ActiveVBProject.VBComponents.Item("Export").Export (ThisWorkbook.Path & Application.PathSeparator & "Export.bas")
bzw.:
Application.VBE.ActiveVBProject.VBComponents.Import (ThisWorkbook.Path & Application.PathSeparator & "Export.bas")
Das klappt wunderbar. Zumindest steht dieses Makro jetzt in dem neu erstellten Workbook unter dem Modul "Export" zur Verfuegung.
Jetzt erstelle ich per Makro in dem neuen Workbook ("NeuesBook.xls") ein Sheet in das ich ein Button erstelle (per code), der dieses exportierte Makro ("ShowMore") ueber die .OnAction Eigenschaft ausfuehren soll.
Das sieht dann so aus:
Set objBut = ActiveSheet.Buttons.Add(BLeft, BTop, BWidth, BHeight)
With objBut
.OnAction = WbkName & "!ShowMore()"
(...)
End With
Das klappt nicht. Jedesmal, wenn ich auf den Button klicke wird das Makro aus dem alten Workbook ausgefuehrt - Bemerke ich dadurch, dass wenn ich nach dem Export das zu exportierende Makro in dem Ursprungs-Workbook umbenenne, ich eine Fehlermeldung bekomme die ungefaehr so lautet:
"Makro ShowMore() in UrWorkbook.xls nicht gefunden"
(eigentlich muesste ja auf das ShowMore Makro im neuen Wkbook zu gegriffen werden)
So... Wie bekomme ich das jetzt hin, dass hinter den Button das exportierte Makro gelegt wird.
Is nen bisserl kompliziert, ich hoffe aber jemand hat nen Tip
Danke schonmal
Holger