Problem mit Makros zuweisen
Brigitte
zunächst zum Hintergrund: ich hab eine Standard-Datei erstellt, in der alle Kunden-Dokumente enthalten sind. Jede dieser Dateien beinhaltet Makros und teilweise Userformen.
Wenn ich eine Kunden-Vorlage (also als eigene Datei aus dieser Sammlung) generieren will, so sollen auch die Makros und Userformen übernommen werden.
Ich exportiere also alles und importiere es dann in der neuen Datei. Soweit so gut.
Jetzt mein Problem: teils werden diese Makros über Schaltflächen aufgerufen. Wenn ich diese automatisiert zuweisen will, wird jedoch immer auf die Makros der Standard-Datei verwiesen, was allerdings höchst ungünstig ist, weil die Kunden diese Datei ja grundsätzlich nicht sehen sollen.
Hatte bereits versucht, die Makros der neuen Datei aus der Standard-Vorlage mit Application.Run zu öffnen was aber gescheitert ist (vermutlich, weil die Datei noch nicht gespeichert ist)...
Hier mal der Code, soweit ich bisher gekommen bin...
(Zur Info wb ist der Workbookname über Property Get zugewiesen)
Danke schonmal,
Gruß
Brigitte
Public Sub Export()
Sheets("FTP").Select
Sheets("FTP").Copy
Windows("Standards.xls").Activate
Sheets("Hilfe").Select
Sheets("Hilfe").Copy after:=Workbooks(wb).Sheets(1)
Workbooks(wb).VBProject.vbcomponents.Import "C:\Dokumente und Einstellungen\bhm\Desktop\ _
HWSWUFrm.frm"
Workbooks(wb).VBProject.vbcomponents.Import "C:\Dokumente und Einstellungen\bhm\Desktop\ _
FTPSubs.bas"
Workbooks(wb).VBProject.vbcomponents.Import "C:\Dokumente und Einstellungen\bhm\Desktop\ _
FTPProperties.bas"
Windows(wb).Activate
Call MakrosZuweisen
'Application.Run ("'" & ActiveWorkbook.Name & "'!MakrosZuweisen")
End Sub
Public Sub MakrosZuweisen()
Windows(wb).Activate
Set wob = ActiveWorkbook
Sheets("FTP").Select
ActiveSheet.Shapes("AutoShape 21").Select
Selection.OnAction = "Tabelle21.hilfe"
End Sub
Anzeige