Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blätter aus 100 Datteien in einer Datei zusammenfa

Forumthread: Blätter aus 100 Datteien in einer Datei zusammenfa

Blätter aus 100 Datteien in einer Datei zusammenfa
10.02.2005 15:15:14
Walter
Hallo Forumsuser,
ich würde gerene aus allen Dateien (100 Stück) eines Verzeichnisses das jeweilige Blatt (es gibt pro Datei nur eines) die Blätter in einer Datei zusammenfassen (blatt1, Blatt2, Blatt3......).
Wer weiß Rat ?
mit Dank
Walter
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blätter aus 100 Datteien in einer Datei zusamm
10.02.2005 15:32:47
Josef
Hallo Walter!
Ungetestet, sollte aber funktionieren!


      
Option Explicit
Sub zusammenfassung()
Dim fSearch As FileSearch
Dim wkb As Workbook, wkbZ As Workbook
Dim strPath As String
Dim iCnt As Integer
On Error GoTo ERRORHANDLER
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With
strPath = "C:\"   'Pfad zu den Exceldateien  - anpassen

Set wkbZ = Workbooks.Add
Set fSearch = Application.FileSearch
   With fSearch
   .NewSearch
   .LookIn = strPath
   .SearchSubFolders = False  '<<<<Unterordner durchsuchen True/False
   .FileType = msoFileTypeExcelWorkbooks
   .Execute
   
       For iCnt = 1 To .FoundFiles.Count
   
            Set wkb = Workbooks.Open(.FoundFiles(iCnt))
            wkb.Sheets(1).Copy after:=wkbZ.Sheets(wkbZ.Sheets.Count)
            wkbZ.Sheets(wkbZ.Sheets.Count).Name = "Blatt " & iCnt
            wkb.Close , False
            
       Next
   
   End With
   For iCnt = 1 To 3
   wkbZ.Sheets(iCnt).Delete
   Next
ERRORHANDLER:
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
End Sub 
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Blätter aus 100 Datteien in einer Datei zusammenfa
10.02.2005 18:49:32
Walter
Hallo Josef,
einfach spitze, Dei Code liefert sehr schnell und bringt exakt das gewünschte Ergebnis.
Danke + Gruß
Walter

Forumthreads zu verwandten 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
Arbeitsblätter in eine .csv-Datei abspeichern
Dylan666

Hallo,
ich moechte mehrere Arbeitsblaetter einer Excel-Datei gleichzeitig abspeichern als tapstopp-getrenntes .txt, als kommasepariertes .csv-Format oder als neue .xls-Datei (mit nur einer Arbeitsmappe). Dabei sollen nur befuellte Zeilen gespeichert werden. Weiss jemand eine schnelle Method...
14.01.2009 10:18:37
Thread-ID: 1039496
2 Beiträge
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
Aus mehreren Tabellenblätter eine machen
Sascha

Hallo ihr
Ich muss aus mehreren Tabellenblättern eine machen um dann die Daten mittels einer Pivot Tabelle auszuwerten.
Diese Tabellenblätter haben alle den gleichen Kopftext, einzig die darunterliegenden Daten sind verschieden ;)
Nun muss z.B. Tabelle 1, Tabelle 2 usw. in Tabelle...
07.07.2010 22:19:25
Thread-ID: 1166034
3 Beiträge
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
Anzeige
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
Anzeige
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
Anzeige
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
Mehrere Tabellen in einer Zusammenfassen
Sebastian

Hallo,
Ich habe eine Datei mit ca. 30 Worksheets die gleich aufgebaut sind. Ab Spalte 1, Zeile 18 fangen Datentabellen an, die ich gerne auf einem Sheet zusammenfassen möchte um sie anschließend mit Pivot zu analysieren. Auf den Quellsheets über den Tabellen befinden sich weitere kleine Tab...
16.07.2013 12:36:03
Thread-ID: 1322719
3 Beiträge
mehrere Excel Dateien in einer zusammenfügen
chrbo

Hallo,
ich verzweifele beim Aufnehmen eines Makros. Folgende Aufgabe muss ich täglich erledigen: Ich habe 10 verschiedene Excel Dateien, jede hat die gleiche Spaltenorganisation, aber die anzahl der Zeilen ist unterschiedlich, da täglich welche hinzukommen bzw. gelöscht werden.
Ich habe...
16.08.2013 22:54:48
Thread-ID: 1327246
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige