Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Module von einer zur anderen Mappe kopieren

VBA-Module von einer zur anderen Mappe kopieren
10.09.2007 10:11:00
einer
Hallo alle zusammen, hab dieses kleine VBA gefunden, da ich noch nicht so fit in VBA bin, hab ich es nicht so ganz kapiert.
Ich will ein Modul von einer Arbeitsmappe in eine andere Automatisch kopieren.
Dabei ermittelt eine arbeitsmappe die aktuellste Version einer arbeitsmappe und soll in diese anschließend ein Modul kopieren, die es erlaubt ein Arbeitsblatt in eine weitere Arbeitsmappe zu kopieren.
Hoffe es kann mir jemand mit dem untenstehenden beispiel helfen. Da wo " \ " soll ja der dateipfad angegeben werden odeR?
Problem: Wie kann ich Modulblätter von der einen zur anderen Arbeitsmappe kopieren und das neue Blatt benennen?
StandardModule: basMain

Sub CopyModule()
Dim sPath As String
sPath = Application.Path & "\"
ThisWorkbook.VBProject _
.VBComponents("basMain").Export sPath & "basMain.bas"
Workbooks.Add 1
With ActiveWorkbook.VBProject
.VBComponents.Import sPath & "basMain.bas"
.VBComponents("basMain").Name = "MyModul"
End With
Kill sPath & "\basMain.bas"
MsgBox "Modul wurde kopiert!"
End Sub


Gruß Marcel

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Module von einer zur anderen Mappe kopieren
10.09.2007 11:57:25
einer
Hallo Marcel,
der Code, so wie du ihn hast macht folgendes.
1. Aus der Arbeitsmappe in der das Makro "CopyModule" angelegt ist ("ThisWorkbook") wird das Modul mit dem Namen "basMain" in die Datei "basMain.bas" exportiert und in dem Anwendungsverzeichnis von Excel (Application.Path) gespeichert.
2. Es wird eine neue Arbeitsmappe geöffnet.
3. In diese nun aktive Arbeitsmappe wird das zuvor exportierte Modul importiert.
4. Das Modul "basMain" in der neuen Datei wird umbenannt in "MyModul"
5. Die im Schritt 1 erstellte Export-Datei wird wieder gelöscht.
Um es auf deinen Fall anwendbar zu machen, muss der Code etwas modifiziert werden.
Die Namen der beiden Arbeitsmappen und den Namen der Module muss du dann noch festlegen.
Je nach eingestellten Sicherheitsfunktionen (z.B. auch Netzwerkssicherheit), kann es jedoch sein, dass der Code nicht ausgeführt wird, da VBA-Code-Manipulationen als sicherheitsbedenklich eingestuft werden
Gruß
Franz

Sub CopyModule()
Dim sPath As String, wbQuelle As Workbook, wbZiel As Workbook
sPath = Application.Path & "\"
Set wbQuelle = ThisWorkbook 'Arbeitsmappe in der das zu kopierende Modul ist
Set wbZiel = Workbooks("DateiXYZ.xls") 'Arbeitsmappe in die das Modul kopiert werden soll
wbQuelle.VBProject _
.VBComponents("basMain").Export sPath & "basMain.bas"
With wbZiel.VBProject
.VBComponents.Import sPath & "basMain.bas"
.VBComponents("basMain").Name = "MyModul"
End With
Kill sPath & "\basMain.bas"
MsgBox "Modul wurde kopiert!"
End Sub


Anzeige
AW: VBA-Module von einer zur anderen Mappe kopieren
10.09.2007 15:24:10
einer
noch ne kleine Frage. Kann ich viell die Zieldatei auch in eine Zelle in Arbeitsblatt schreiben und diesen Wert übernehmen in der Form :

Sub CopyModulic()
Dim sPath As String, wbQuelle As Workbook, wbZiel As Workbook
sPath = Application.Path & "\"
Set wbQuelle = ThisWorkbook
'Arbeitsmappe  _
in der das zu kopierende Modul ist
Set wbZiel =Worksheets("1ste tabelle").Range("H2").Value                                      _
'Arbeitsmappe in die das Modul kopiert werden soll
wbQuelle.VBProject _
.VBComponents("icmodul").Export sPath & "icmodul.bas"
With wbZiel.VBProject
.VBComponents.Import sPath & "icmodul.bas"
.VBComponents("icmodul").Name = "icmodul"
End With
Kill sPath & "\icmodul.bas"
MsgBox "Icmodul wurde kopiert!"
End Sub


Anzeige
AW: VBA-Module von einer zur anderen Mappe kopieren
10.09.2007 15:41:00
einer
Hallo marcel,
die Syntax ist dann:

Set wbZiel = Workbooks(Activeworkbook.Worksheets("1ste tabelle").Range("H2").Value) _
'Arbeitsmappe in die das Modul kopiert werden soll
oder
Set wbZiel = Workbooks(Workbooks("DieseDateiXYZ.xls").Worksheets("1ste tabelle").Range("H2"). _
Value) _
'Arbeitsmappe in die das Modul kopiert werden soll


Die Datei muss dann schon geöffnet sein, sonst gibt es eine Fehlermeldung
Gruß
Franz

AW: VBA-Module von einer zur anderen Mappe kopieren
10.09.2007 16:34:00
einer
Erstmal danke für die schnelle und super antwort.
Hab da noch etwas gefunden, wo ich denke das es noch besser zu meinem Problem paßen könnte.
->
Problem: Module und UserForms der in Zelle B1 genannten Arbeitsmappe sollen exportiert werden.
StandardModule: Modul1

Sub BasExtract()
Dim vbc As Object
Dim iCounter As Integer
Dim sFile As String, sTarget As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Die Datei " & sFile & " wurde nicht gefunden!"
Exit Sub
End If
sTarget = WorksheetFunction.Substitute(sFile, "\" & Dir(sFile), "")
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Workbooks.Open sFile, False
For Each vbc In ActiveWorkbook.VBProject.VBComponents
iCounter = iCounter + 1
If vbc.Type = 1 Or vbc.Type = 100 Then
vbc.Export sTarget & "\backup" & iCounter & ".bas"
Else
vbc.Export sTarget & "\backup" & iCounter & ".frm"
End If
Next vbc
ActiveWorkbook.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
End Sub


Ich verstehe aber nicht wo hin die sachen exportiert werden. Wahrscheinlich ne doffe frage aber jeder fängt ja mal klein an.
Danke schon mal führ deine Bemühungen.
Marcel

Anzeige
AW: VBA-Module von einer zur anderen Mappe kopiere
11.09.2007 02:18:00
einer
Hallo marcel,
wenn ich das richtig lese werden die Module und Userforms in das gleiche Verzeichnis exportiert, in dem die Datei abgelegt ist, die In Zelle B1 angegeben ist.
In B1 sollten Pfad und Name der Exceldateistehen, deren Module exprotiert werden sollen.
Die Funktion dieses Makros ist aber deutlich anders von dir in deiner ursprünglichen Frage beshcrieben.
Gruß
Franz

60 Forumthreads zu ähnlichen Themen

Alle Blätter in andere Mappe kopieren
Doro

Hallo Liebe Profis,
ich möchte gerne alle Tabs aus dem File DatenFile in das File AuswerteFile vor das Tabellenblatt 3 kopieren, und nutze folgenden Code:
Dim AuswerteFile As String
AuswerteFile = ThisWorkbook.Name
Dim FileToOpen
If Dir("C:\*.*") "" Then ChDir "C:\"
Fil...
26.01.2009 15:46:00
Thread-ID: 1043923
8 Beiträge
Anzeige
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
per makro in andere excelmappe kopieren
meixner

Hallo zusammen,
ich möchte Dateien aus einer Mappe in eine andere Excel - Mappe kopieren. Der Code funktioniert aber nicht. Kann mir jemand einen Tip geben, woran es liegt?
Viele Grüße und Danke!
Dani Sub fonds() Dim allinoneswap As String allinoneswap = "H:\CCXLS\C\AllIn" Applicat...
12.08.2009 11:55:23
Thread-ID: 1095282
11 Beiträge
Anzeige
Tabellenblatt in andere Arbeitsmappe kopieren
Annette

Hallo,
langsam verzweifel ich:
Ich möchte mittels eines Makros das Tabellenblatt „123“ der Arbeitsmappe „ABC“ in die Arbeitsmappe „DEF“ (nicht geöffnet) kopieren.
Der Name des Tabellenblatts soll beibehalten werden. Falls jedoch das Blatt vorhanden ist, soll es ersetzt werden.
...
05.05.2010 19:44:02
Thread-ID: 1155669
2 Beiträge
Spalten in andere Arbeitsmappe kopieren
Olli

Hallo,
Ich bin absolut unerfahren im Umgang mit Excel und VBA. Jetzt steh ich vor einem Problem und komm nicht weiter.
Und zwar will ich über Formeln errechnete Werte durch ein Makro in eine andere Arbeitsmappe übertragen.
Hab im Forum zwar schon einen Ansatz gefunden, ich schaff es...
02.06.2010 15:58:25
Thread-ID: 1160038
6 Beiträge
Daten in Blatt einer anderen Mappe kopieren
Stefan

Hallo,
ich habe folgendes Problem:
ich möchte nach markieren einer Zelle in der Spalte C von einer Arbeitsmappe Zellen aus drei Spalten (C, D und E) einer Tabelle (Quelle) in eine Tabelle (Ziel) einer zweiten Arbeitsmappe kopieren (vielleicht mittels eines Buttons). Das Problem ist, da...
29.03.2011 11:52:52
Thread-ID: 1208061
7 Beiträge
Werte einer Mappe in viele andere Mappen kopieren
Markus

Hallo Zusammen,
ich bin mir nicht einmal sicher ob das mit Vba zu bewältigen ist, habe schon viel gegooglet aber nichts gefunden wo nur annährend passen könnte. Wenn jemand eine Idee hätte wäre ich euch sehr dankbar.
Ich habe eine Mappe (Mappe 1) und in einem anderen Verzeichnis noch c...
06.04.2011 22:37:13
Thread-ID: 1209407
5 Beiträge
Daten in andere Mappe kopieren
Stefan

Hallo,
ich mache ein neues Posting auf und beziehe mich auf folgendes schon einmal gepostetes Problem:
Archiv-IDX 2011-05-20 09:47:16 Daten in andere Mappe kopieren
Hier sind auch die Beispieldateien geladen.
Hierbei hatte mir fcs (Franz) mit einem Quellcode geholfen (https://...
08.06.2011 11:49:57
Thread-ID: 1217688
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
4
10
2
1
5
6
4
2
8
1
2
6
2
4
12
8
3
3
8
4
2
4
3