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

Modul anlegen in anderer Datei

Forumthread: Modul anlegen in anderer Datei

Modul anlegen in anderer Datei
01.03.2005 09:47:39
Matthias
Noch etwas: Ich habe ein Korrektur-Makro entworfen, das in einer geöffneten Datei einiges verändert. Jetzt möchte ich, dass mein Korrektur-Makro ein Makro in die geöffnete Datei einbindet. So soll zum Beispiel das Schließen der geöffneten Datei nur noch möglich sein, wenn eine bestimmte Zelle auf einem bestimmten Tabellenblatt ausgefüllt ist.
Wie erreiche ich das?
Vielen Dank,
MAtthes
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Modul anlegen in anderer Datei
01.03.2005 11:08:03
Ralf
Hallo Matthes,
zunächst mal folgendes: Wenn du Code von einer in eine andere Mappe kopierst, wird sich sofort dein Antivirenprogramm melden (wenn es ein vernünftiges ist, bzw. wenn du überhaupt eines hast).
Der folgende Code muss in "DieseArbeitsmappe" deiner Ursprungsdatei rein. Er verhindert, dass die Mappe geschlossen wird, wenn nicht in A5 OK drin steht:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Tabelle1").Range("A5") <> "OK" Then
Cancel = True
End If
End Sub

Du musst natürlich den Tabellenblattnamen und den Rangebereich anpassen.
In ein allgemeines Modul deiner Ursprungsmappe muss folgender Code:
Sub code_copy()
Dim i As Integer
Dim scode As String
With ThisWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
scode = .Lines(1, .CountOfLines)
End With
Workbooks("Test.xls").VBProject.VBComponents("DieseArbeitsmappe").CodeModule.AddFromString scode
End Sub
Der kopiert den Code deiner Ursprungsdatei von "DieseArbeitsmappe" in die andere offene Datei. Bei mir heißt die eben Test.xls. Musst du noch anpassen.
Hoffe es hilft.
Gruß
Ralf
Anzeige
;

Forumthreads zu verwandten Themen

Öffnen einer anderen Excel Datei
Alex

Folgendes Problem:
Aus einer Excel Datei öffne ich mit einem Makro eine andere.
Bei der neu geöffneten Datei werden automatisch weitere Befehle ausgeführt,
unter anderem auf ein anderes Tabellenblat zu wechseln.
Dadurch, dass die andere Datei noch offen ist sucht er in dieser Da...
24.08.2008 10:55:42
Thread-ID: 1004222
3 Beiträge
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
Anzeige
automatische Verbindung in andere Datei?
Sascha

Hallöchen, ich nerv mal wieder...
Folgende Angelegenheit:
Ich habe verschiedenen Auflistungen in Dateien, die nach Monaten benannt sind. Pro Monat sind es 2-3 Dateien, also August 1-2008, August 2-2008, August 3-2008, September 1-2008, September 2-2008, Oktober 1-2008 ect.
In einer...
14.11.2008 12:31:29
Thread-ID: 1024532
5 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Anzeige
Kopf- & Fußzeile auf andere Dateien übertragen?
Jessi

Hallo zusammen,
habe mal wieder eine Frage:
Habe 175 Dateien, die ich mit gleicher Kopf- & Fußzeile versehe muss. Die Dateien sind alle gleich nummeriert:
001.xlsm
002.xlsm
(...)
175.xlsm
Gibt es ggf. eine geschickte Möglichkeit z.B. das erste Tabellenblatt richt...
06.12.2008 18:56:00
Thread-ID: 1030728
9 Beiträge
Schneller Zugriff auf andere Dateien
Marco

Hallo zusammen,
ich möchte in einer Prozedur auf Daten in einem anderen Workbook zugreifen, welches zu diesem Zeitpunkt nicht geöffnet ist. Wie kann ich dies tun ohne das Programm zu langsam zu machen.
Gruß Marco
10.12.2008 10:13:00
Thread-ID: 1031590
5 Beiträge
Gültigkeit Liste mit Bezug auf eine andere Datei
Rafi

Hallo Zusammen,
ich habe ein Problem mit einer Gültigkeitsprüfung auf eine Liste die in einer anderen Datei steht.
Bislang hat das immer funktioniert, wenn ich die Liste der Externen Datei unter Namen definiert und bei der Gültigkeit/Liste mit Quelle="Name" angegeben habe. Geht aber nic...
16.12.2008 11:28:00
Thread-ID: 1033235
4 Beiträge
Anzeige
Werte aus einer Zelle in andere Zelle (neue Datei)
Franz

Tach auch,
folgendes Problem habe ich:
ich öffne eine Datei über eine Vorlage "rep.xlt". Die heisst dann bis zum Speichern "rep1". In einer Zelle wird eine Zahl eingetragen, bspw.: 1234. Dann kann ich die Datei per makro speichern, dann heisst sie: "rep1234.xls. Das funktioniert auch g...
22.01.2009 15:10:00
Thread-ID: 1042648
3 Beiträge
SVerweis - Zugriff auf ext. Tabellen ->Datei gross
sk

Hallo zusammen,
ich habe eine Preislistendatei die ich anhand von externen Tabellen mit SVerweis aktualisiere.
Ich suche anhand der der hinterlegten Artikelnummer in meiner Datei per SVerweis im jeweiligen
Datenbankextrakt der Artikelstammdaten(12MB) und Artikelpreise(1.5MB) die pas...
26.01.2009 14:43:35
Thread-ID: 1043902
3 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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