Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Modul in eine neue Arbeitsmappe kopieren

Forumthread: VBA-Modul in eine neue Arbeitsmappe kopieren

VBA-Modul in eine neue Arbeitsmappe kopieren
27.02.2005 17:34:39
Bastelpeter
Hallo zusammen,
gibt es eine Möglichkeit ein VBA-Modul in eine neue Arbeitsmappe zu kopieren?
Hatte die Tage schon mal nachgefragt und komme mit dem einfach nicht klar :-(((
Gruß Sonnenpeter
Anzeige
AW: VBA-Modul in eine neue Arbeitsmappe kopieren
Jens_Pu
Hallo Bastelpeter,
rechte Maustaste Datei exportieren.
In neuer Mappe importieren.
Gruß Jens
AW: VBA-Modul in eine neue Arbeitsmappe kopieren
Bastelpeter
Hallo Jens,
Danke für deine Info.
habe das ganze ausprobiert, geht als .bas ohne probleme.
Dann habe ich es einfach als .xls exportiert geht auch, nur ist der VBA-Code dann in einer normalen Tabelle.
VBA-Recorder streik bei diesen Varianten :-)))
Gruß Sonnenpeter
Anzeige
AW: VBA-Modul in eine neue Arbeitsmappe kopieren
Luc
Hallo Peter,
beide Arbeitsmappen öffnen - in den Editor wechseln - Projektfenster öffnen - mit der Maus das gewünschte Modul anklicken und ins neue Projekt ziehen - fertig, in der neuen Arbeitsmappe steht eine Kopie des Moduls.
Gruß Luc
AW: VBA-Modul in eine neue Arbeitsmappe kopieren
27.02.2005 17:48:34
Bastelpeter
Hallo Luc,
Danke für deine Info.
Geht das auch mit VBA?
Habe dabei den Makrorecorder laufen lassen.
Es wurde nichts leider aufgezeichnet.
Gruß Sonnenpeter
Anzeige
AW: VBA-Modul in eine neue Arbeitsmappe kopieren
Luc
Hallo Peter,
wahrscheinlich ja, hatte aber noch nicht die Notwendigkeit. Bei der Suche danach, ich glaube, in der VBA-Hilfe steht was dazu, kannst du dich auch an dem anderen Vorschlag orientieren. Zu Export/Import von Modulen gibt es bestimmt VBA-Methoden.
Den Makro-Recorder kannst du auf diesem Level vergessen, der taugt nur für Bewegungen auf Blatt- und Zellebene, schon bei Kommentaren, Textfeldern etc kommt da nichts Gescheites mehr raus.
Schönen Abend noch, ich schalt jetzt ab
Luc
Anzeige
AW: VBA-Modul in eine neue Arbeitsmappe kopieren
Bastelpeter
Hallo Luc,
VBA Hilfe gibt da nicht viel her.
Import-Methode
Siehe auch Betrifft Beispiele Zusatzinfo
Diese Methode sollte nicht verwendet werden. Audionotizen wurden aus Microsoft Excel entfernt.
Export gibt auch nichts her.
Gruß Sonnenpeter
AW: VBA-Modul in eine neue Arbeitsmappe kopieren
Heiko
Moin Peter,
so geht das auch mit VBA.

Private Sub CommandButton12_Click()
Dim strPath As String
strPath = Application.Path & "\"
On Error GoTo Errorhandler
ThisWorkbook.VBProject _
.VBComponents("GlobaleVariable").Export strPath & "GlobaleVariable.bas"
Workbooks.Add 1
With ActiveWorkbook.VBProject
.VBComponents.Import strPath & "GlobaleVariable.bas"
.VBComponents("GlobaleVariable").Name = "MyModul"
End With
Kill strPath & "\GlobaleVariable.bas"
MsgBox "Modul wurde kopiert!"
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das kopieren des VBA Moduls ist fehlgeschlagen!" & vbCr & _
"Bitte über prüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro Modul kopieren!"
End If
End Sub

Gruß Heiko
Anzeige
Hallo Heiko ..........
Bastelpeter
Hallo Heiko,
danke für deinen Code, funktioniert leider nicht bei mir nicht?

Sub Testlauf()
Dim strPath As String
strPath = Application.Path & "\"
On Error GoTo Errorhandler
ThisWorkbook.VBProject _
.VBComponents("GlobaleVariable").Export strPath & "GlobaleVariable.bas"
Workbooks.Add 1
With ActiveWorkbook.VBProject
.VBComponents.Import strPath & "GlobaleVariable.bas"
.VBComponents("GlobaleVariable").Name = "MyModul"
End With
Kill strPath & "\GlobaleVariable.bas"
MsgBox "Modul wurde kopiert!"
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das kopieren des VBA Moduls ist fehlgeschlagen!" & vbCr & _
"Bitte über prüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro Modul kopieren!"
End If
End Sub

'Zugriff auf Visual Basic Projekt vertrauen ist aktiviert.
Woran kann das liegen?
Gruß Sonnenpeter
Anzeige
AW: Hallo Heiko ..........
01.03.2005 07:33:07
Heiko
Moin Peter,
hast du die Zeile
'On Error GoTo Errorhandler
mal auskommentiert um zu sehen welche Fehlermeldung kommt ?
Dann wissen wir vielleicht mehr.
Gruß Heiko
PS:
Du kannst den letzten Teil auch so umschreiben,
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das Löschen des VBA Codes ist fehlgeschlagen!" & vbCr & _
"Bitte über prüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS - MAKRO - SICHERHEIT - Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro VBAloeschen"
Else
MsgBox "Err.Number = " & Err.Number & ". " & Err.Description, vbCritical
End If
dann werden andere Fehlermedlungen auch angezeigt.
Anzeige
AW: Hallo Heiko ..........
01.03.2005 19:48:01
Sonnenpeter
Hallo Heiko,
jetzt spinnt auch noch meine Virenprogramm, BitDefender 8 Pro.....
Haut mir selbst erstellete Makros raus, nur weil Sie auf c;\ zugreifen.
Der Begriff Kill scheint ihm zuviel, lässt ein abspeichern der Datei mit deinem Code nicht zu.
Ich verschiebe das ganze mal, und kommen später noch mal darauf zurück.
Danke für Deine Hilfe!!!!
Grüße aus Mainz / Sonnenpeter
Anzeige
;

Forumthreads zu verwandten Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Kopieren von Werten in TExtBox
Werten

Hallo,
ich möchte gerne einen Wert von Tabelle2 in eine TextBox in Tabelle1 übergeben, habe aber irgendwie den falschen Code:
Worksheets("Tabelle2").Cells(42, 11).Copy
Worksheets("Tabelle1").TextBox1.Value.PasteSpecial Paste:=xlPasteValues
Ausserdem würde ich gerne die TextBox...
17.01.2009 00:55:00
Thread-ID: 1040842
11 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
Anzeige
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 Beiträge
Anzeige
Text finden und kopieren
Bodo_Bachmann69

Hallo,
ich habe folgendes Problem:
Ich habe in Spalte A einen Text stehen und möchte in Spalte B einen Teil davon kopieren (per Formel).
Soweit bin ich derzeit (ALLE ANGABEN OHNE " AM ANFANG UND AM ENDE):
Zu kopierender Teil (aus Spalte A):
"R7878A"
____________________...
16.11.2009 22:44:42
Thread-ID: 1117790
8 Beiträge
VBA-Projekt innerhalb Datei kopieren
Gregor

Hallo Excel-Profis
Folgendes Problem, dass ich trotz intensiver Recherche nicht gelöst bekomme:
Möchte das VBA-Projekt der Arbeitsmappe("2") mit dem VBA-Projekt der Arbeitsmappe("1") überschreiben.
(beide Blätter sind in einer Datei).
Kann mir jemand helfen?
Vielen Dank!
...
03.12.2009 13:09:19
Thread-ID: 1121578
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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