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
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt aus mehreren Dateien kopieren

Tabellenblatt aus mehreren Dateien kopieren
07.12.2004 14:20:51
Matthes
Hallo, ich habe das Problem, dass ich aus einem Haufen von Excel-Dateien mit mehreren Blättern von jeder Datei nur ein bestimmtes Blatt benötige. Diese Einzelblätter möchte ich in eine separate neue Datei kopieren. Sämtliche Excel-Dateien sind übrigens identisch strukturiert.
Wer weiß Rat bzw. kann mir ein kurzes Makro schreiben? Bin leider VBA-technisch von (fast) keiner Ahnung beleckt, ich könnte dieses im wesentlichen mit Copy & Paste nach Excel herüberretten ...
Herzlichen Dank vorab.
Gruß,
Matthes

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt aus mehreren Dateien kopieren
07.12.2004 14:51:02
Michael
Öffne alle Excel-Dateien, aus denen du kopieren möchtest.
Wenn die neue Excel-Datei "Neu" und das zu kopierende Blatt "Blatt" heißt dann:
For Each dateiname In Workbooks
If dateiname.Name <> "Neu" Then
dateiname.Sheets("Blatt").Copy After:=Workbooks("Neu").Sheets(Sheets.Count)
EndIf
Next dateiname
Da aber in einer Arbeitsmappe keine zwei Tabellenblätter den gleichen Namen haben dürfen, mußt du nach dem kopieren noch umbenennen:
blattindex = 1
For Each dateiname In Workbooks
If dateiname.Name <> "Neu" Then
dateiname.Sheets("Blatt").Copy After:=Workbooks("Neu").Sheets(Sheets.Count)
Workbooks("Neu").Sheets(Sheets.Count).Name = "Blatt" & Str(blattindex)
blattindex = blattindex + 1
EndIf
Next dateiname
Anzeige
AW: Tabellenblatt aus mehreren Dateien kopieren
07.12.2004 15:04:28
Matthes
Erstmal danke für die schnelle Info.
Leider sollten die neuen Tabellenblätter nach Möglichkeit noch den Namen der ALTEN Datei annehmen. Ferner ist das manuelle Öffnen der einzelnen Dateien extrem langwierig (ca. 60 Dateien) und unübersichtlich. Gibt es hier evtl. noch eine automatische Lösung?
Danke vorab!
Gruß,
Matthes
Funktioniert leider nicht ...
07.12.2004 15:19:21
Matthes
... habe gerade mal versucht, die fassung mit manuellem öffnen der einzelnen excel-dateien auszuprobieren, hat aber leider nicht geklappt. erst war irgendeine variable nicht definiert und dann gab es einen laufzeitfehler in der folgenden zeile:
dateiname.Sheets("5").Copy After:=Workbooks("Test").Sheets(Sheets.Count)
Habe selber etwas an der Vorgabe herumgefummelt, sieht zur Zeit so aus (Datei heißt Test.xls, das gesuchte Blatt heißt 5):

Sub Zusammenfassen()
Dim arr As Variant
Dim icounter As Integer
For Each dateiname In Workbooks
If dateiname.Name <> "Test" Then
dateiname.Sheets("5").Copy After:=Workbooks("Test").Sheets(Sheets.Count)
End If
Next dateiname
blattindex = 1
For Each dateiname In Workbooks
If dateiname.Name <> "Test" Then
dateiname.Sheets("5").Copy After:=Workbooks("Test").Sheets(Sheets.Count)
Workbooks("Test").Sheets(Sheets.Count).Name = "5" & Str(blattindex)
blattindex = blattindex + 1
End If
Next dateiname
End Sub


Bitte nochmal helfen -vielen Dank!
Beste Grüße,
Matthes
Anzeige
AW: Tabellenblatt aus mehreren Dateien kopieren
07.12.2004 15:39:36
Ulrich
Hi Michael!
Hiermit kannst Du alles machen!
Sub Verschieben()
Windows("Deine Mappe.xls").Activate 'hiermit Aktivierst Du die Mappe, aus der Du etwas
kopieren möchtest
Workbooks("Deine Mappe.xls").Sheets("Dein Tabellenblatt").Select 'hiermit sprichst du das
Tabellenblatt an, dass
du kopieren möchtest
Workbooks("Deine Mappe.xls").Sheets("Dein Tabellenblatt").Copy Before:=Workbooks("Neue Mappe.xls").Sheets(1) 'hiermit sprichst du das zu kopierende Tabellenblatt an und mit
Before:=....die Mappe, in die das Blatt hinein kopiert werden
soll.
.Sheets(1) besagt: Vor Tabelle 1 wird eingefügt.
Anzeige
AW: Tabellenblatt aus mehreren Dateien kopieren
07.12.2004 15:41:32
Ulrich
Entschuldigung.
Meinte Hi Matthes
AW: Bin verwirrt ...
07.12.2004 15:52:21
Matthes
... nochmal danke für die Hilfe. Leider bin ich jetzt komplett verwirrt. Wenn ich den ganzen Sermon in den Debugger kopiere klappt es leider immer noch nicht. Irgendein Syntaxfehler in Zeile 2 nach "Activate" ...
Kannst Du einem kompletten VBA-Vollidioten nochmal erklären, wie genau ich vorgehen muß?
Herzlichen Dank und sorry für die blöden Fragen ...
gruß,
Matthes
AW: Tabellenblatt aus mehreren Dateien kopieren
07.12.2004 15:57:46
Matthias Nelischer
... und wenn ich das richtig verstehe, muß ich für "Deine Mappe.xls" die Datei eingeben, aus der ich kopieren soll?! Das Problem ist doch aber, dass ich ca. 60 Stück davon habe und auas JEDER ein Tabellenblatt ("5") in eine neue Datei ("Test.xls") kopieren möchte ...
Danke nochmal!
Gruß,
Matthes
Anzeige

45 Forumthreads zu ähnlichen Themen

Auswertung Monats-Tabelle aus mehreren Dateien
Ludwig

Hallo!
Mehrere Arbeitskollegen haben von mir eine Excel-Datei erhalten, welche nun in einem vorgegebenen Laufwerk in verschiedenen Unterordnern gespeichert sind/werden. (Dateiname enthält immer den Namen "Akte")
In der Arbeitsmappe ist, abgesehen vom Monatsnamen, 11x eine gleiche Tabell...
29.06.2009 15:35:19
Thread-ID: 1085119
2 Beiträge
Anzeige
Tabelle nach Kriterien auslesen und addieren
Alex

Hallo liebe Excelfreunde,
leider kenne ich mit VBA Programmierung nicht aus und habe folgendes Problem:
https://www.herber.de/bbs/user/74855.jpg
In der ersten Tabelle sind Produkte mit deren Maschinendurchlauf und Zeiten definiert.
In den Spalten ist das Datum mit der dazugehöri...
16.05.2011 14:57:53
Thread-ID: 1214692
7 Beiträge
Inhalt einer Tabelle in mehreren Tabellen anzeigen
Ivek

Hallo Community!
Ich habe wieder ein Problem! Ich will Inhalte aus der "Tabelle1" in weitere Tabellen (Tabelle2, Tabelle3, Tabelle4...) anzeigen. Dies funktionier auch. Ich habe dazu diesen Code verwendet:
Worksheets("ET").Activate
Worksheets("ET").Rows(i).Select
Selection.Copy<...
21.08.2012 14:31:26
Thread-ID: 1275882
7 Beiträge
Anzeige
Produkte einer Tabelle nach Kriterien vergleichen
puma_888

Hallo zusammen :),
ich bin neu hier im Forum und hoffe mir kann einer weiterhelfen.
Ich habe folgendes Problem. Ich habe eine Tabelle in deren ersten Spalte verschiedene Produkte untereinander aufgelistet sind. In den Spalten daneben sind Kriterien aufgelistet anhand denen Werte für die...
18.03.2015 10:48:24
Thread-ID: 1415665
18 Beiträge
Tabelle nach mehreren Kriterien durchsuchen
Uli

Hallo,
ich habe ein Tabellenblatt mit 20 Spalten. Dazu habe ich eine Userform entworfen, die diese Tabelle nach mehreren Kriterien durchsuchen und die zutreffenden Zeilen in eine neue Tabelle schreiben soll.
Die Suchkriterien betreffen Spalte 12, 17 und 19.
Beispiel: Spalte 12 trif...
23.07.2015 12:29:09
Thread-ID: 1438067
3 Beiträge
Tabelle nach Kriterien zusammenfassen
muehli

Hallo zusammen,
ich habe ein Problem, bei dem ich nicht weiter komme.
Ich habe eine Tabelle (siehe Anhang), die ich gerne zusammengefasst hätte.
Das Ganze soll per Button realisiert werden (VBA).
https://www.herber.de/bbs/user/100991.xlsx
Es gibt hier zwei Bedigungen, nach d...
23.10.2015 13:04:24
Thread-ID: 1453979
4 Beiträge
Tabelle nach Kriterien gruppieren
Olga
Hallo Spezialisten,
Tabelle gem. Vorgaben und wenn Titel fett gruppieren.
In Anlage meine Tabelle betreffend gruppieren.
Danke für Eure Hilfe!
Gruß
Olga
https://www.herber.de/bbs/user/102470.xlsm
29.12.2015 06:21:45
Thread-ID: 1466268
2 Beiträge
Tabelle in mehreren aufteilen
Mamo

Hallo,
ich rauche eure Hilfe;
Ich habe mehrere Tabellen, gleich aufgebaut, in einem Excelblatt. Nun möchte ich jede Tabelle in einem Blatt speichern. Das Blatt soll benannt werden nach der Bezeichnung der einzelnen Tabellen, was in Spalte B direkt über die Tabelle (Mathematik, usw) ste...
29.06.2016 12:31:18
Thread-ID: 1501556
11 Beiträge

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