Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1684to1688
1684to1688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Exelmappe in neue Exeldatei kopieren

Forumthread: Exelmappe in neue Exeldatei kopieren

Exelmappe in neue Exeldatei kopieren
18.04.2019 14:25:00
Tobi
Hallo Zusammen,
ich wäre mal wieder für Eure Hilfe dankbar.
Ich habe eine Kontaktliste als Userform in der sich eine Tabelle (Tabelle 1) befindet. Ich würde nun gerne die gesamte Tabelle 1 beim Schließen der UF automatisch in eine neue Exceldatei schreiben lassen. Das ganze soll lediglich als Sicherheitskopie dienen. Die neue Exceldatei sollte folgenden Dateiname haben: Sicherungskopie_Kontakliste.xlsx
Die UF hier angehängt.
Ich danke im Voraus Lieb Grüße Tobi
https://www.herber.de/bbs/user/129240.xlsm
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Exelmappe in neue Exeldatei kopieren
18.04.2019 18:45:56
cysu11
Hi Tobi,
so:
Private Sub UserForm_Terminate()
Sheets("Tabelle1").Copy
sichdatei = "Sicherungskopie_Kontakliste.xlsx"
pfad = ThisWorkbook.Path
ActiveWorkbook.SaveAs pfad & "\" & sichdatei
ActiveWorkbook.Close savechanges:=True
End Sub
Du musst noch den Namen deiner Userform entsprechend anpassen!
LG
Alexandra
Anzeige
AW: Exelmappe in neue Exeldatei kopieren
18.04.2019 21:01:13
Tobi
Hallo Alexandra,
vielen Dank für Deine Unterstützung. Vielleicht mach eich was falsch aber es kommt die Fehlermeldung:
sichdatei : Variable nicht definiert
AW: Exelmappe in neue Exeldatei kopieren
18.04.2019 23:16:16
cysu11
Hi Tobi,
du hast "Option Explicit" oben im Modul stehen!?
Dann so: 

Private Sub UserForm_Terminate()
Sheets("Tabelle1").Copy
sichdatei = "Sicherungskopie_Kontakliste.xlsx"
pfad = ThisWorkbook.Path
ActiveWorkbook.SaveAs pfad & "\" & sichdatei
ActiveWorkbook.Close savechanges:=True
End Sub
LG
Alexandra
Anzeige
AW: Exelmappe in neue Exeldatei kopieren
18.04.2019 23:17:37
cysu11
ups, ich meine so... :)
Hi Tobi,
du hast "Option Explicit" oben im Modul stehen!?
Dann so: 

Private Sub UserForm_Terminate()
Dim sichdatei as string
Dim pfad as string
Sheets("Tabelle1").Copy
sichdatei = "Sicherungskopie_Kontakliste.xlsx"
pfad = ThisWorkbook.Path
ActiveWorkbook.SaveAs pfad & "\" & sichdatei
ActiveWorkbook.Close savechanges:=True
End Sub
LG
Alexandra
Anzeige
AW: Exelmappe in neue Exeldatei kopieren
18.04.2019 23:24:50
cysu11
Alle gute Dinge sind drei...:)
nochmals mit Meldung..

Private Sub UserForm_Terminate()
Dim sichdatei As String
Dim pfad As String
Sheets("Tabelle1").Copy
sichdatei = "Sicherungskopie_Kontakliste.xlsx"
pfad = ThisWorkbook.Path
ActiveWorkbook.SaveAs pfad & "\" & sichdatei
ActiveWorkbook.Close savechanges:=True
MsgBox sichdatei & " wurde erstellt und im Ordner " & pfad & "\ abgelegt!"
End Sub
LG
Alexandra
Anzeige
Alexandra konnte helfen, vielen Dank !
18.04.2019 23:28:41
Tobi
Hallo Alexandra,
jetzt passt es ! Ich danke Dir herzlich für Deine freundliche Hilfe.
Liebe Grüße Tobi
;

Forumthreads zu verwandten Themen

VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 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
Anzeige
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
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
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
Worksheet aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
Anzeige
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
Makro in eine/mehrere andere Dateien transportiere
Britta

Hallo zusammen,
ich habe nun mit dem von Hary erfundenen Makro eine gute Lösung für meine Daten gefunden. Leider weiß ich nicht wie ich das Makro in eine oder mehrere weitere Dateien übertragen kann. Ich habe es einfach naiv kopiert, dann aber festgestellt das, dass nur geht wenn ich die Qu...
11.02.2009 16:52:00
Thread-ID: 1049686
9 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge
Programm und Daten in andere Datei
Steffen

Hi Excelkenner
Habe da mal eine simple Frage:
Wenn ich ein Programm in VBA entwerfe aber die Daten auf eine separate Datei speicher will ist dies eine Variante. Wenn ich aber das Programm benutzen will, dass die Datendatei nicht immer gleich heisst ist wiederum etwas anders.
Wie mac...
10.03.2009 19:00:43
Thread-ID: 1058828
2 Beiträge
makro in andere Datei aufrufen
Alex

Hi
Ich rufe mit dem Code das makro2 in einer anderen Datei auf.
Wie kann ich es erreichen, daß wenn das Makro "makro2" nicht existiert eine Meldung kommt und die Prozedur abgebrochen wird und wenn das Makro vorhanden ist, die erste Datei geschlossen wird, aber die aufgerufene Datei wei...
21.03.2009 21:44:25
Thread-ID: 1062538
14 Beiträge
Anzeige
Daten in andere Datei üebrtragen-Netzlaufwerk
Andreas

Hallo zusammen,
ich habe folgendes Problem. Ich muss eine Datei zur Verfügung stellen, welche nur eine bestimmte Anzahl von Daten benötigt. Die Originaldatei hat also zuviel Infos (zuviel Spalten). Daß man Spalten innerhalb einer Arbeitsmappe übertragen kann ist mir bewußt. Kann ich jedoch...
20.05.2009 11:58:36
Thread-ID: 1076320
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige