Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
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
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Excel-Dateien Zusammenfügen

mehrere Excel-Dateien Zusammenfügen
02.09.2015 19:29:19
Dimitri
Hallo Zusammen
Bin auf der Suche nach einer Möglichkeit, mehrere Excel-Dateien welche nur ein Datenblatt enthalten, in eine neue Excel-Datei zusammenzuführen. Das Problem ist aber, das die einzelnen Datenblätter den Namen der Excel-Datei erhalten sollen damit diese beim Zusammenlegen unterschieden werden können. Es handelt sich hier um ca. 90 Dateien.
Gibt es dafür eine Lösung?
Vielen Dank für Eure Hilfe

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Excel-Dateien Zusammenfügen
03.09.2015 03:59:49
fcs
Hallo Dimiti,
hier ein passendes Makro
Gruß
Franz 
Public Sub Tabelle_1_holen()
'1. Tabellenblatt aus mehreren Arbeitsmappen in die aktive Mappe kopieren
Dim strDatnam As Variant
Dim wb As Workbook, wbZiel As Workbook
Dim ws As Worksheet
Dim i As Integer
Dim j As Integer
Dim Anzahl As Long
Set wbZiel = ActiveWorkbook
strDatnam = Application.GetOpenFilename("Datei (*.xls*),*.xls*", False, _
"Bitte gewünschte Datei(en) markieren ", False, True)
If Not IsArray(strDatnam) Then Exit Sub
Set wbZiel = ActiveWorkbook
Application.ScreenUpdating = False
For i = LBound(strDatnam) To UBound(strDatnam)
Set wb = Workbooks.Open(strDatnam(i), ReadOnly:=True)
Set ws = wb.Worksheets(1)
With wbZiel
ws.Copy After:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
End With
wb.Close savechanges:=False
Next
Application.ScreenUpdating = True
Set ws = Nothing
Set wb = Nothing: Set wbZiel = Nothing
End Sub

Anzeige

108 Forumthreads zu ähnlichen Themen

Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
Anzeige
2 Word-Dateien zusammenfügen
HansP

Hallo! Im Kern wäre das eine Frage für ein Word-Forum, aber das Ganze muss über Excel laufen...
Ich füge in 2 Word-Dateien Daten aus einer Excel-Tabelle ein. Klappt prima. Nun muss ich aber, die beiden Word-Dateien zu einer zusammenfügen. Ich aus organisatorischen Gründen, kann ich die beid...
03.07.2009 15:47:16
Thread-ID: 1086110
2 Beiträge
aus mehreren Datesätze EINER machen
Joachim

Hallo zusammen,
vielleicht kann mir jemand helfen: Ich habe eine Excelmappe mit Daten ab Zeile 15.
Jede Zeile ist immer ein Datensatz. Ein Datesatz sieht so aus (ich nenn nur mal die betroffenen Zellen):
Spalte D :
reiner Text (string) zB: "LAGER"
Spalte E :
Preis (Zahl...
14.09.2009 14:27:52
Thread-ID: 1102643
14 Beiträge
Anzeige
Mehrere Abfragen in einer Summe zusammenfassen
Jan

Liebe Exel-Profi's,
ich habe ein Problem bei einer Formel. Ich möchte auf einer Übersichtsseite (Tabellenblatt 1) in einer Zelle eine Summe mehrerer Abfragen zusammen fassen. Im Tabellenblatt 2 werden Daten eingegeben.
Im Klartext soll folgendes abgefragt werden:
Wenn A1 = "Versich...
14.09.2011 07:32:16
Thread-ID: 1229794
7 Beiträge
aus 2 Listen eine machen
Uppe

Hallo Experten,
ich steh grad etwas auch dem Schlauch. Das Internet hat mir bisher leider auch nicht geholfen, vielleicht suche ich nach den falschen Schlagwörtern!?
Also, mein Problem:
Ich habe eine Liste1 mit Servern und diversen Daten zu diesen. Die Servernamen kommen in der List...
12.07.2012 13:22:57
Thread-ID: 1270771
5 Beiträge
Berechnung in mehreren Dateien, zusammenfügen
Tobias

Hallo!
Ich benötige nochmal euere Hilfe.
Ich habe einen Ordner mit vielen .xls Dateien. Aus jeder dieser Dateien muss ich die Werte von A1:A30 (in unterschiedlicher Reihenfolge) in eine Vorlage kopieren. In der Vorlage werden von allen .xls Dateien bestimmte Werte zusammengefasst. Hier...
05.11.2012 10:30:01
Thread-ID: 1285296
3 Beiträge
Mehrere Exceldateien in einer Datei zusammenfassen
Chris

Hallo Forum,
ich habe folgendes Problem:
ch bin total Ratlos, habe ein paar ansätze, aber nichts konkretes bin in Makro Programmierung nicht wirklich gut.
Folgendes Szenario:
Ich habe mehrere Exceldateien mit gleicher Struktur in einem Verzeichnis liegen. Alle diese Dateien möch...
19.02.2013 15:03:28
Thread-ID: 1300053
4 Beiträge
alle Dateien im Verzeichnis als pdf speichern
Uwe

Hallo,
wie kann man alle xls-Dateien in einem Verzeichnis als pdf-Datei speíchern.
26.04.2013 09:27:18
Thread-ID: 1310572
4 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
4
1
1
13
2
6
4
2
3
3
2
1
5
2
2
5
1
1
1
6
3
10
1
2
2