Nach wirklich langer Suche im Internet habe ich beschlossen die Frage hier zu stellen, da ich während meiner Suche des öfteren auf diese Seite gestoßen bin. Doch leider habe ich bis jetzt noch keine Lösung gefunden.
Folgendes Problem: Ich habe ca. 300 Excel Sheets vor mir liegen. Alle beinhalten im Prinzip das gleiche Makro. Wenn nun was upgedated werden soll z.B. ein Modul upgedated, ersetzt etc. verwendete ich immer ein Aktualisierungsmakro, das einfach das alte Modul löscht und das neue einfügt.
Doch nun soll auf jedes Sheet ein Button mit zugehörigem Makro eingefügt werden. Wäre natürlich auch wünschenswert dies automatisiert über ein Makro laufen zu lassen. Den Button kopiere ich folgendermaßen:
ActiveSheet.Shapes("CommandButton1").Copy
'ActiveSheet.Paste
Workbooks.Open "C:\Testbook.xls", NO
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.ActiveSheet.Shapes("Commandbutton1").Top = 30
ActiveWorkbook.ActiveSheet.Shapes("Commandbutton1").Left = 477
Das funktioniert auch soweit, also den Button fügt er an richtiger Stelle ein, doch leider fehlt das zugehörige Makro. Verwende ich einen CommandButton, habe ich im src stehen: "Call druckeA5". Dies wird mal schon gar nicht mitgenommen.
Verwende ich eine Schaltfläche und weise der Schalftfläche das Makro "druckeA5" zu, kopiert er die Schaltfläche und auch das Makro bzw. halt nur den Verweis auf das Makro in der Datei, von der ich kopiere. So steht dann im neuen Sheet: "C:\....\*.xls!druckeA5". Aber genau das will ich nicht!
Da ich bis jetzt keine Lösung gefunden habe, hoffe ich, dass ihr mir helfen könnt.
Danke