Code von einer Arbeitsmappe in neue übertragen
22.03.2018 09:54:07
einer
ich habe folgendes Problem und hab grad keine Idee wie ich es lösen könnte ich hoffe ihr könnt mir dabei helfen.
Ich möchte per Makro ein Modul von einer Arbeitsmappe in eine neue übertragen. Dazu verwende ich folgenden Code:
Sub Modul_Transfer()
ThisWorkbook.VBProject.VBComponents("transfer").Export sPath & "transfer.bas"
With ActiveWorkbook.VBProject
.VBComponents.Import sPath & "transfer.bas"
.VBComponents("transfer").Name = "feedback"
End With
Kill sPath & "transfer.bas"
End Sub
Gibt es eine Möglichkeit den Code aus dem Modul transfer.bas direkt in das neue VBA-Projekt (diese Arbeitsmappe oder Tabelle1) zu übertragen?
Und hier ist das eigentliche Problem:
Ich erstelle per Knopfdruck eine neue Exceldatei in der per Makro auch ActiveX Steuerelemente (Commandbuttons) in Tabelle1 erstellt werden. Der Code für die Buttons liegt in dem Modul transfer.bas.
Aus einem mir nicht bekannten Grund, funktionieren die Buttons nur, wenn der Code im gleichen Tabellenblatt liegt in dem auch Die Buttons liegen. Liegt der Code in einem Modul wird er nicht erkannt.
Könnt ihr mir vielleicht verraten, wie ich
1.Entweder den Code von einem Modul in das Tabellenblatt bekomme, oder
2.Wie ich dem Button (es muss ein ActiveX Steuerelemet sein und keine einfache Schaltfläche) den Code aus einem Modul zuweisen kann.
Vielen lieben Dank schon mal für eure Hilfe!
Mit besten Grüßen
Stefan