Office: Excel 07: sub aus Modul an Button zuweisen per VBA

Hallo zusammen,

folgendes Problem in Kurzform:
über ein Makro in Datei 1 wird in der geöffneten Datei 2 ein Tabellenblatt angelegt.

Aus Datei 1 expotiere ich ein .Bas Modul in ein Verzeichnis, in Datei 2 lade ich dann dieses .BAS Modul. Dann erzeuge ich einen Button auf dem Tabellenblatt in Datei 2 und will jetzt ein Makro aus diesem Modul in Datei 2 laden, dieses Makro kann aber dann dem Button nicht zugeordnet werden.

Obwohl ich im VBA Editor der Datei 2 alle Sub sehen kann, kann ich auch mit rechter Maustaste-> Makro zuordnen nur bestimmte Makros auswählen.

Mir ist auch aufgefallen dass genau dieses Makro (SAP_Planning) in der Makroliste mit einer Referenz aufgeführt ist:
"Macro_CO_Report.xls!SAP_Planning.SAP_Planning"
Alle anderen Makros sind nur mit ihrem Namen aufgeführt und können ausgewählt werden.

Woher kommt diese Referenz? Ich habe das Makro auch schon kopiert und umbenannt, immer mit dem selben Ergebnis.

Hat jemand einen Tipp?

Vielen Dank,

Gruß Wolfgang Böhm

:)

 

Kann es daran liege wie ich das Modul aus Datei 1 exportiere:

ActiveWorkbook.VBProject.VBComponents("SAP_Planning").Export S_path & "\SAP_Planning.bas"
ActiveWorkbook.VBProject.VBComponents("SysChoice").Export S_path & "\SysChoice.frm"

 

Hallo Wolfgang,

wenn Du die Mappe, in der ein Code läuft, ansprechen willst, würde ich mit Thisworkbook darauf referenzieren - das ist eindeutiger als ActiveWorkbook (das kann wechseln).

Codemodul und Sub würde ich mit anderen Namen versehen. Allgemeine Module fangen bei mir immer mit "m" an - in Deinem Fall würde ich das Modul also m_SAP_Planning nennen. Damit hast Du eine Unterscheidung zur Sub SAP_Planning.
Neben dem reinen Makronamen sollte man einem Button auch die Datei und das Modul mitgeben - ein Makroname muss im Projekt ja nicht eindeutig sein (nur innerhalb eines Moduls) und projektübergreifend schon garnicht. Bei Dir kommt es ja in beiden Mappen vor.

Folgender Code tat's bei mir in meiner kleinen Testdatei:
Code:

Pfade, Namen etc. bitte noch anpassen.

Grüße
EarlFred

 

Hallo Earlfred,

vielen Dank! Das mit den doppelten Namen ist mir auch schon aufgefallen, habs auch geändert, ohne Erfolg. Ich werd jetzt mal Dein Beispiel einbauen.

Gruß Wolfgang

 

Hallo Earlfred,

vielen Dank, die Referenzenen auf die Arbeitsmappe und den Modulnamen haben es dann gelöst:

wb.Worksheets(1).Shapes("Schaltfläche 1").OnAction = wb.Name & "! m_SAP_Planning.SAP_Planning"

Gruß Wolfgang