Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Modul einzeln kopieren
#1
Hallo liebes Forum !

Ich habe ein Makro gefunden, das verspricht ein Modul von einer Datei in eine andere zu kopieren.
Kann mir bitte jemand sagen, was in dem Modul falsch ist, denn es kopiert das Modul nicht in die neue Mappe, sondern immer in die, in der diese Modul steht.
Vielen Dank für Eure Hilfe.
Liebe Grüße aus Innsbruck
Helmut
Code:
'####################################################
'# Alfons Seeberger                                 #
'# -------------------------------------------------#
'# Internet: http://vba1.de/index.php               #
'# E-Mail:   page456@web.de                         #
'####################################################

Option Explicit

Sub Modul_in_neue_Datei_exportieren()
'Modul1 dieser Mappe in neue Datei exportieren
Dim Pfad As String

Pfad = ThisWorkbook.Path & "\Modul1.bas"

'Modul1 aus dieser Mappe exportieren
Application.VBE.ActiveVBProject.VBComponents("Modul1").Export Pfad

Workbooks.Add

'Modul1 in neue Mappe importieren
With ActiveWorkbook
 Application.VBE.ActiveVBProject.VBComponents.Import Pfad
End With

'Kopie von Modul1 löschen
Kill Pfad

MsgBox "Modul in neue Mappe kopiert", , ""

End Sub
Antworten Top
#2
Hallo,

funktioniert bei mir wie es soll.

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • heli
Antworten Top
#3
Hi Helmut,
klappt doch einwandfrei, zumindest bei mir

Kopiert Modul in NEUE Datei, willst du was anderes machen, muß der Code geändert werden.
Mit freundlichen Grüßen  :)
Michael
[-] Folgende(r) 1 Nutzer sagt Danke an Zwergel für diesen Beitrag:
  • heli
Antworten Top
#4
Hallo!

Mal davon abgesehen, dass der Code funktioniert:
Ich erstelle in solchen Fällen eine neue Datei und ziehe das Modul im Projektexplorer mit der Maus in die neue Mappe.

Dauert eine Sekunde ...

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • heli
Antworten Top
#5
Hallöchen,

Du musst dem Code automatisch durchlaufen lassen. Bei Einzelschrittmodus bleibt das VB-Projekt aktiv, in dem der Code steht. Wegen dem Einfügen ins aktive Projekt kommt die Kopie entsprechend in die alte Mappe Sad
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • heli
Antworten Top
#6
Hallo Andrè !

Vielen Dank für Deine Antwort, das war mein Fehler: Ich hatte es immer mit Einzelschritten versucht.

Liebe Grüße
Helmut
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste