17.05.2015, 21:56
Hallo liebes Forum !
Leider habe ich schon wieder ein Problem:
Ich habe aus einem Beitrag einen Code zum Kopieren von Modulen in eine andere (neue) Datei gefunden.
Leider funktioniert der Code so nicht, da er die Komponenten immer in die Datei kopiert in der Code steht, womit sie dann doppelt wären.
Anstatt einer neuen Datei würde ich eine andere Datei wählen, aber das müsste im Prinzip ja dann egal sein.
Kann mir bitte vielleicht jemand helfen.
Vielen Dank.
Liebe Grüße aus Innsbruck
Helmut
Leider habe ich schon wieder ein Problem:
Ich habe aus einem Beitrag einen Code zum Kopieren von Modulen in eine andere (neue) Datei gefunden.
Leider funktioniert der Code so nicht, da er die Komponenten immer in die Datei kopiert in der Code steht, womit sie dann doppelt wären.
Anstatt einer neuen Datei würde ich eine andere Datei wählen, aber das müsste im Prinzip ja dann egal sein.
Code:
Sub Komponenten_in_neue_Datei_exportieren()
'alle VBE-Komponenten dieser Mappe in neue Datei exportieren
Dim Ding As Object
Dim Pfad As String
Workbooks.Add
On Error Resume Next
For Each Ding In ThisWorkbook.VBProject.VBComponents
Pfad = ThisWorkbook.Path & "\" & Ding.Name
Ding.Export Pfad
With ActiveWorkbook
Application.VBE.ActiveVBProject.VBComponents.Import Pfad
End With
Kill Pfad
'Kill Pfad & ".frx"
Next Ding
MsgBox "alles in neue Datei kopiert", , ""
End Sub
Vielen Dank.
Liebe Grüße aus Innsbruck
Helmut