Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt in andere Mappe kopieren

Tabellenblatt in andere Mappe kopieren
16.11.2015 00:31:56
Hecke
Hallo Forum,
ich brauche mal Hilfe bei meinem Problem.
Über einen Button auf dem aktiven Tabellenblatt möchte ich dieses Blatt als Kopie in eine andere geschlossene Arbeitsmappe speichern.
Name des "neuen" Tabellenblattes in der neuen Mappe der Wert der in Zelle J1 steht.
Auswahl wohin kopiert werden soll über den speichern unter Dialog.
Wenn die Mappe in der das Blatt gespeichert werden soll vorher geöffnet werden muss, dann sollte das im Hintergrund passieren.
Nach dem Speichern in der ausgewählten Mappe, diese dann speichern und schließen
Die Quelldatei und das Quelltabellenblatt soll weiterhin geöffnet bleiben.
Ich hoffe ihr könnt mir dabei etwas helfen.
Danke Euch

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt in andere Mappe kopieren
16.11.2015 08:55:11
Michael
Hallo Hecke!
zB so:
Sub BlattKopieInMappe()
Dim Quelle As Workbook
Dim Ziel As Workbook
Dim Dialog As FileDialog
Dim Blatt As Worksheet
Application.ScreenUpdating = False
Set Quelle = ThisWorkbook
Set Blatt = Quelle.ActiveSheet
Set Dialog = Application.FileDialog(msoFileDialogFilePicker)
With Dialog
.Title = "Bitte Zieldatei wählen"
.AllowMultiSelect = False
If .Show  -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else:
Set Ziel = Workbooks.Open(.SelectedItems(1))
End If
End With
With Ziel
Blatt.Copy after:=.Worksheets(.Worksheets.Count)
.Worksheets(.Worksheets.Count).Name = .Worksheets(.Worksheets.Count).Range("J1").Text
.Save
.Close
End With
Application.ScreenUpdating = True
End Sub
Falls das Blatt mit diesem Namen aber schon in der Ziel-Mappe existiert, läuft das in einen Fehler. Eine entsprechende Behandlung konnte ich mangels Angaben nicht einbauen.
LG
Michael

Anzeige
AW: Tabellenblatt in andere Mappe kopieren
17.11.2015 00:10:31
Hecke
Hallo Michael und Danke.
Hat natürlich super funktioniert.
hast natürlich Recht mit dem Fehler. Es soll ja immer User geben die alles ausprobieren.
Wie kann ich denn den Fehler abfangen, wenn das Blatt schon existiert? in Zelle j1 steht ein Datum, Format tt.mm.jjjj, und in diesem Format werden dann ja auch die Tabellenblätter abgespeichert. Also wenn z.B. Tabellenblatt 01.01.2016 schon vorhanden, dann einfach eine Meldung "Blatt schon vorhanden" und abbrechen. Wäre das möglich?
Gruß Hecke

AW: Tabellenblatt in andere Mappe kopieren
17.11.2015 00:12:23
Hecke
?

AW: Tabellenblatt in andere Mappe kopieren
17.11.2015 06:20:54
Matthias
Hallo 

Option Explicit
Sub BlattKopieInMappe()
Dim Quelle As Workbook
Dim Ziel As Workbook
Dim Dialog As FileDialog
Dim Blatt As Worksheet, X&
Application.ScreenUpdating = False
Set Quelle = ThisWorkbook
Set Blatt = Quelle.ActiveSheet
Set Dialog = Application.FileDialog(msoFileDialogFilePicker)
With Dialog
.Title = "Bitte Zieldatei wählen"
.AllowMultiSelect = False
If .Show  -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else:
Set Ziel = Workbooks.Open(.SelectedItems(1))
End If
End With

For X = 1 To Ziel.Sheets.Count
If Sheets(X).Name = Blatt.Range("J1").Text Then
MsgBox "Blatt existiert schon: " & Sheets(X).Name
Ziel.Close
Exit Sub
End If
Next

With Ziel
Blatt.Copy after:=.Worksheets(.Worksheets.Count)
.Worksheets(.Worksheets.Count).Name = .Worksheets(.Worksheets.Count).Range("J1").Text
.Save
.Close
End With
Application.ScreenUpdating = True
End Sub
Gruß Matthias

Anzeige
AW: Danke...
17.11.2015 08:38:37
Michael
Matthias,
für's Einsteigen in den Faden. Ich bin gestern einfach nicht mehr dazu gekommen.
Hecke,
für Deine nette Rückmeldung. Du hast ja glücklicherweise noch von Matthias die gewünschte Ergänzung bekommen.
LG und schönen Tag
Michael

249 Forumthreads zu ähnlichen Themen

Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Anzeige
alle Tabellenblätter in anderes File kopieren
Doro

Hallo Forum!
habe eben schonmal "versucht" zu posten, aber irgendwie ist mein Beitrag weg...
Ich möchte gerne das File DatenFile öffnen, alle Tabellenblätter markieren, und dann in das File AuswerteFile kopieren, und bekomme in der letzten Zeile einen Laufzeitfehler.
Kann da jemand...
26.01.2009 16:48:18
Thread-ID: 1043937
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
mehrere Blätter in andere Mappe kopieren
Jakob

Hallo,
mit den unten angehängten Code kopiere ich das aktuelle Blatt in eine seperate Mappe. Den Code würde ich jetzt gerne so erweitern, daß mehrere Blätter auf einmal in die gleiche Mappe kopiert werden.
Wie müßte der Code aussehen der das bewerkstellig?
Ich Danke Euch schon mal.<...
27.02.2009 14:29:50
Thread-ID: 1054785
5 Beiträge
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
Blatt in selber Mappe kopieren und umbenennen
SteffenS

Hallo Zusammen,
ich habe ein Blatt M1 und möchte dieses per Makro gern in der gleichen Mappe noch 11x kopieren und gleichzeitig umbennenn (M2.....M12).
Wie stelle ich dies am Besten an?
Danke im Voraus.
MFG
Steffen Schmerler
14.04.2009 22:30:25
Thread-ID: 1068755
3 Beiträge
Tabelleninhalt in eine andere Arbeitsmappe kopiere
Himmelsbach

Hallo zusammen,
Ich hoffe es kann mir jemand bei meinem Problem weiter helfen, denn ich habe keine Idee wie ich meine Aufgabe automatisieren kann, ansonsten werde ich wohl Stunden damit zubringen müssen Tausende Zellen zu kopieren.
Also zu meiner Aufgabenstellung, reduziert auf 3 Tabell...
10.06.2009 16:57:46
Thread-ID: 1080549
4 Beiträge
Zeile löschen, Tabellenblatt in andere Mappe
Bowl

Teilweise mit Makro Aufzeichnen, teils aus Tipps selbstzusammengebastelt, klappen tut des ganze Teilweise klappt des ganze; das wichtigste nur:
Blatt muss an letzte Stelle der anderen Mappe verschoben werden.
Beim löschen der entsprechenden Zeilen (die Zeilen in der in B der Blattname d...
08.07.2009 08:12:35
Thread-ID: 1087066
7 Beiträge
Anzeige

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
5
7
2
6
7
4
4
2
3
6
10
1
4
2
5
1
5
5
2
6
1
6
13
4
10