Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blätter in neue Dateien kopieren

Blätter in neue Dateien kopieren
26.02.2007 11:56:58
Ryu_Hoshi
Hallo!
Ich habe eine Excel Datei mit vielen Tabellen. Als erstes Blatt folgt eine Beschreibung und anschließend unterschiedliche Blätter. Nun möchte ich ein Makro machen welcher eine neue Datei erstellt und dort jeweils die Beschreibung (erstes Tabellblatt) und dann die anderen Blätter kopiert. Also z.B. erste Datei: erstes Blatt Beschreibung und zweites Blatt das zweite aus der Original Datei. Zweite Datei: erstes Blatt Beschreibung und zweites Blatt das dritte aus der Original Datei. Die neuen Dateien sollten nach dem Namen des zweiten Blatts benannt werden (also das was in jeder Datei unterschiedlich ist).
Ich hoffe ich habe mich veständlich ausgedrückt. Ansonsten kann ich dies gerne noch erklären. Ich denke ich müsste die Dateinamen in Array machen und von dort auslesen, aber ich habe dies schon lange nicht mehr gemacht und würde mich daher über Hilfe freuen.
Gruss
Ryu

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ergänzung
26.02.2007 13:50:00
Ryu_Hoshi
Ich habe versucht den Code zu schreiben, aber es sind noch Fehler drin. Vielleicht sieht sie jemand:
"

Sub Blätter_verteilen()
Dim wkb As Workbook
Dim i As Integer
Dim k As Integer
Dim x1 As Integer
Dim x2 As Integer
wkb = Workbooks("Delivery Performance IC Feb 07.xls")
x1 = wkb.Worksheets.Count
For i = 2 To x1
Workbooks.Add
ActiveWorkbook.Name = wkb.Worksheet(i)
wkb.Worksheet("Important").Copy Before:=ActiveWorkbook.Sheets(1)
wkb.Worksheet(i).Copy Before:=ActiveWorkbook.Sheets(2)
x2 = ActiveWorkbook.Worksheets.Count
For k = x2 To 3 Step -1
Worksheets(k).Delete
Next k
ActiveWorkbook.SaveAs Filename:="G:\test\" & i & ".xls"
ActiveWindow.Close
End If
End Sub

"
Anzeige
AW: Ergänzung
26.02.2007 14:12:00
fcs
Hallo Ryu,
hier eine angepasste, vereinfachte Version deines Makros.
Gruß
Franz

Sub Blätter_verteilen()
Dim wkb As Workbook, wkbNeu As Workbook
Dim i As Integer
Dim x1 As Integer
'  Set wkb = ActiveWorkbook
Set wkb = Workbooks("Delivery Performance IC Feb 07.xls")
x1 = wkb.Worksheets.Count
For i = 2 To x1
wkb.Worksheets("Important").Copy
Set wkbNeu = ActiveWorkbook
wkb.Worksheets(i).Copy After:=wkbNeu.Sheets("Important")
wkbNeu.SaveAs Filename:="G:\test\" & wkb.Worksheets(i).Name & ".xls"
wkbNeu.Close
Next
End Sub

AW: Ergänzung
26.02.2007 15:28:00
Ryu_Hoshi
Hallo fcs,
danke für deine Hilfe. Der Makro funktioniert gut.
Gruss
Ryu
Anzeige

305 Forumthreads zu ähnlichen Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Anzeige
Tabelle in neue Datei speichern
Robert

Hallo,
kann mir bitte jemand helfen...bin am verzweifeln ;-)
Ein Tabellenblatt der geöffneten Datei sollte in eine neue Datei gespeichert werden - und das mit dem Zellinhalt eines anderen Tabellenblattes derselben Datei als Dateiname. Sollte eine Datei mit demselben Namen bereits besteh...
26.12.2008 10:18:00
Thread-ID: 1035274
4 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
Anzeige
Makro per Makro in neue Datei kopieren
miss18

Guten Morgen alle zusammen,
ich hoffe Ihr könnt mir noch einmal helfen.
Ich habe folgendens Makro (siehe SUB AbteilungX) für die Freigabe der Dokumentenübersicht für eine bestimmte Abteilung. Diese Freigabe-Makros sind in einer Exceldatei (.xls). Wenn ich die Datei sozusagen freigebe, w...
02.07.2009 10:42:12
Thread-ID: 1085869
7 Beiträge
Tabellen in Datei kopieren
Tobiax

Hallo!
Ich möchte gerne einige meiner Tabellen per Makro in eine Andere Datei kopieren.
Allerdings sollen nur die Werte und das Format in den 4 Tabellenblätter übernommen werden. Die Formeln nicht.
Die beiden Dateien liegen IMMER im selben Ordner.
Kann mir jmd helfen?
Toby ....
25.07.2009 09:06:13
Thread-ID: 1091116
4 Beiträge
Blätter in neue Datei kopieren
Tobiax

Hallo!
Ich möchte aus der Datei "x.xls", 5 bestimmte Tabellenblätter (A, B, C, D, E) in die Datei "y.xls" kopiert haben.
Wie bekomme ich das per Makro hin?
Toby ...
P.S.: Zur Not kann mit den 5 Blättern auch neue Datei generiert werden mit dem Namen "y.xls".
27.07.2009 11:48:47
Thread-ID: 1091559
6 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Tabellenblatt als Datei speichern
Murat

Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle i2 des jeweiligen tabellenblattes....
19.01.2010 16:27:42
Thread-ID: 1131114
6 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
2
5
3
7
4
6
3
5
13
5
5
7
5
2
13
1
4
6
19
7
1
6
2
12
1