Das Archiv des Excel-Forums

Kopieren einzelner Blätter in neue Arbeitsmappe

Bild

Betrifft: Kopieren einzelner Blätter in neue Arbeitsmappe
von: Bre

Geschrieben am: 24.10.2003 10:55:47

Hallo,

ich will die einzelnen Blätter einer (Ausgangs-) Mappe seperat als neue Arbeitsmappen speichern, und dabei die ursprüngliche Mappe leeren.
Die neuen Arbeismappen sollen jeweils nur das verschobene Blatt enthalten, und am besten mit diesem Namen gespeichert werden.

Was ist der eleganteste Weg dafür.
Danke für eine kurze Hilfe

mfg
bre
Bild


Betrifft: AW: Kopieren einzelner Blätter in neue Arbeitsmappe
von: FP
Geschrieben am: 24.10.2003 11:08:59

Hallo bre?

Klicke mit rechter Maustaste auf das Blattregister
Menüpunkt: verschieben/kopieren
zur Mappe: beim 1. Blatt: "neue Arbeitsmappe"
ab dem 2. Blatt: "Mappe1.xls" als Ziel angeben

nachdem alle gewünschten Blätter verschoben sind ursprüngliche Mappe schliessen
neue Mappe mit altem Namen speichern und bei Rückfrage das Überschreiben akzeptieren

Servus aus dem Salzkammergut
Franz


Bild


Betrifft: Sorry, ich meinte natürlich mit VBA Code...
von: bre
Geschrieben am: 24.10.2003 11:17:40

Sorry, ich meinte natürlich mit VBA Code...

(...die einzelnen Namen der Blätter in der Mappe liegen in einem Array und können in einer Schleife verwendet werden, aber ich krieg das irgendwie nicht hin.)

Danke nochmal.


Bild


Betrifft: AW: Sorry, ich meinte natürlich mit VBA Code...
von: ChrisL
Geschrieben am: 24.10.2003 11:33:10

Hi

Dann erzähl mal was über dein Array. Wie kommen die Daten dort rein. Wie sieht dein Code bisher aus usw.

> und dabei die ursprüngliche Mappe leeren.
Was verstehst du darunter. Inhalt leeren, Blätter löschen etc. Ein Blatt muss aber mindestens in der Tabelle bleiben.

Gruss
Chris


Bild


Betrifft: Zur Zeit ...
von: bre
Geschrieben am: 24.10.2003 11:50:08

siehts so aus:

Die Namen der einzlenen Blätter lese ich über eine Schleife aus (oder "ein" -jenachdem):
Die Namen sind immer gleich.

Dim bez(9)
bez(0) = "Deutsch"
bez(1) = "Italien"
bez(2) = "England"
bez(3) = "Südfrankreich"
bez(4) = "Spanien"
bez(5) = "Portugal"
bez(6) = "Sonderl. Portugal"
bez(7) = "Griechenland"
bez(8) = "Spanien in EUR"
bez(9) = "Sonderl. Span."

For durchlauf = 0 To 9 ....

bez(durchlauf)...

jetzt müsste ich hier doch die einzelen Blätter in eine neue Mappe verschieben können, und dann das leere Blatt der neuen Mappe (Tabelle1) gleich löschen. Dann zur Ausgangsmappe zurück...

next durchlauf

...und nächstes Blatt bearbeiten, etc.


mfg
bre



Bild


Betrifft: AW: Zur Zeit ...
von: ChrisL
Geschrieben am: 24.10.2003 12:35:46

Hi bre

Option Explicit


Sub BlätterVerschieben()
Dim WB As Workbook, WS As Worksheet
Dim Bez(9) As Variant
Dim i As Integer
On Error GoTo ErrorHandler
Bez(0) = "Deutsch"
Bez(1) = "Italien"
Bez(2) = "England"
Bez(3) = "Südfrankreich"
Bez(4) = "Spanien"
Bez(5) = "Portugal"
Bez(6) = "Sonderl. Portugal"
Bez(7) = "Griechenland"
Bez(8) = "Spanien in EUR"
Bez(9) = "Sonderl. Span."
Application.ScreenUpdating = False
For i = 0 To UBound(Bez)
Set WB = Workbooks.Add
ThisWorkbook.Sheets(Bez(i)).Move Before:=WB.Sheets(1)
Application.DisplayAlerts = False
For Each WS In WB.Worksheets
If WS.Name <> Bez(i) Then WS.Delete
Next WS
Application.DisplayAlerts = True
WB.SaveAs "C:\PFAD\" & Bez(i) & ".xls"
WB.Close
Next i
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "Fehler!"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub



Die Blattnamen mit Punkten werden sich allerdings als Dateinamen nicht gut machen.

Gruss
Chris


Bild


Betrifft: Super! *Anerkennungaussprech* ot
von: bre
Geschrieben am: 24.10.2003 13:20:42

asd


 Bild

Excel-Beispiele zum Thema " Kopieren einzelner Blätter in neue Arbeitsmappe"

Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download
Summe einzelner Zellwerte ermitteln download Positionen einzelner Zeichen in langer Zeichenfolge auslesen download
Sicherheitskopie einzelner Arbeitsblätter download Start des Makros nach Laden der Arbeitsmappe download
Prüfung, ob eine Arbeitsmappe geöffnet ist download Die "personl"-Arbeitsmappe ausgeblendet speichern download
Variablenübergabe in andere Arbeitsmappen download SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen download
Arbeitsmappe-Schließen-Abfrage abfangen download VBA-Zugriff auf geschlossene Arbeitsmappe. download
Arbeitsmappe mit dem Namen des aktuellen Datums öffnen download Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen download
Zugriff auf geschlossene Arbeitsmappen download 1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen download
Arbeitsmappen-History erstellen download Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben download
Modul in einer zweiten Arbeitsmappe löschen download Alle Links zu einer bestimmten Arbeitsmappe löschen download
Arbeitsmappe unter dem Text eines Zelleintrags speichern download Arbeitsmappe als Email versenden download
Alle Arbeitsmappen außer einer schließen download Auslesen der Arbeitsmappeneigenschaften download
Arbeitsmappe doppelt speichern download Arbeitsmappe unter Namen speichern download
Arbeitsmappe ohne Rückfrage nach Aktualisierung öffnen download Geöffnete Arbeitsmappen mit Arbeitblättern listen download
Alle Arbeitsmappen schließen bzw. Excel beenden download Aus AddIn neue Arbeitsmappe mit Code erstellen download
Arbeitsmappe alle 5 Minuten neu berechnen download MsgBox mit Werten aus geschlossener Arbeitsmappe download
Geburtstagsmeldung bei Öffnen der Arbeitsmappe download Arbeitsmappe aus Dialog schließen download
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download Arbeitsmappe ohne Rückfrage schließen download
Menü nur in der zugehörigen Arbeitsmappe sichtbar download Excel-Arbeitsmappe mit WinZip packen und entpacken download
Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download Arbeitsmappe durchblättern download
Namen einer Arbeitsmappe einlesen download Inhalt einer Arbeitsmappe als Mail senden (ohne die Mappe selbst) download
Einfacher Zellbezug greift auf geschlossene Arbeitsmappe zu download Beim Schließen der Arbeitsmappe Datum und Zeit protokollieren download
Beim Öffnen einer Arbeitsmappe WAV-Datei abspielen download Arbeitsmappe zeitgesteuert per Email an einen Verteiler versenden download
Beim Öffnen einer Arbeitsmappe neues Symbol in Formatsymbolleiste download Beim Öffnen der Arbeitsmappe bedingt Datum eintragen download
Offene Arbeitsmappen in Dialog listen download Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe download
Serie von Bereichsnamenteilen einer Arbeitsmappe ändern download