Office: Exel Dateien (aus Unterordnern) zusammenfassen

Es sind mittlerweile unterschiedliche Dateien (xls, xlsm...), also soll nach allen gesucht erden. Daher habe ich die Endung xl* gesetzt.

Die Dateien heißen alle "Arbeit Kundenname.xl*"
Der Kundenname variiert natürlich.

Im Idealfall ist das Makro in der Zusammenfassungs-Excel,
im Blatt "Zusammenfassung" ist der Button "update".
Die Daten sollen dann in das gleiche Blatt geladen werden, unter den
Spaltenbeschriftungen und den Button, also ab Zeile 5 und ab Spalte B (damit links eine Spalte frei bleibt).

Theoretisch haben alle Dateien die gleichen Formate. Dann müsste es ja reichen, nur Daten zu laden? Gerne inkl. Schriftarten wg. der "Fortschritts-Kuchen"

Die Daten, die geladen werden sollen, heißen jeweils To-Do und stehen an linkester Stelle in den jeweiligen Dateien Arbeit Kundenname.xl*

Säuberung wäre perfekt.

 

Ab welcher Zeile und Spalte im Quellblatt soll rauskopiert werden?

 

ab Zeile 4, Zellen A-L
Länge dann unendlich, aber ohne Leerzeilen

A4 soll dann in der Zusammenfassungs-Datei in B5, L4 in M5 erscheinen.
Wäre schön. Könnte man aber auch 1:1 kopieren.

 

Dann versuch es mal hiermit:

 

Hallo,

also das Makro arbeitet.
Es zeiht auch schön ab Spalte B und Zeile 5 die Daten ein.
Aber es findet wohl nur einen Bruchteil der Daten - nur 5 Zeilen statt vllt. 200.
Die Daten löschen sich auch nicht vorm klick - das macht aber nichts.

Muss ich wirklich nur die 4 Zeilen anpassen in dem einen Blatt
(Pfad, Tabellenblattname, Dateiname)?
Habe als Endung nun mal x* probiert. Ist aber auch nicht besser.

Woran könnte das liegen dass nur ein Bruchteil gefunden wird?

 

Haben alle Quell-Blätter auch Daten? Daten ab Zeile 5?

Füge über
Code:

Folgende Zeile ein:
Code:

Hierbei wird ein neues Blatt mit den ausgelesenen Pfaden erstellt.

Wieviele werden angezeigt?

 

ok sorry, habe nun etwas geändert, nun scheint es zu gehen.
Melde mich wieder *Smilie

 

Nun bin ich nicht mehr so sprachlos.
Es geht tatsächlich - vielen Dank!

Noch was kleines...
Wäre es ein großer Aufwand, wenn vorher die alten
Daten noch gelöscht werden sollen?

 

Hallo,

unter Zeile...
Code:

...folgendes eintragen:
Code:

 

Geht auch, wunschlos glücklich, vielen Dank!

 

Wie lange dauert der Importvorgang?

Zur Messung folgendes eintragen...

...unter die letzte 'Dim'-Anweisung...
Code:

...und vor 'End Sub':
Code:

Sollte es lange dauern wäre ein Fortschrittsbalken nützlich.

 

dauert nun ca. 4 min.
Im Vergleich zu einer Uralt-Version, die bis Excel 2007 ging, soll
das recht lange sein...

Wie ginge denn ein solcher Balken? das wäre ja high-end ;-)

 

Hallo zusammen,

habe heute dieses Thema entdeckt und mal eine Frage dazu.
Kann man das Makro so anpassen, dass zum einen nach speziellen Ordnernamen statt Dateinamen gesucht wird? Und zum anderen, dass die eingelesenen Daten gesplittet werden, seperator wäre ein semikolon.

vielen Dank schon mal.

Marc

 

Hi Marc
weiß nicht ob das Dir hilft, aber ich hab hier ein Tool, welches Dir alle dateien im Ordner und wenn gewünscht Unterordner ausliest und auflistet (Je zeile eine datei mit Pfad usw.). Dann hast Du alle anderen Excel Möglichkeiten (Filter Sort etc)
Probiers mal aus

Gruß
DeBabba

 

Hi DeBabba,

vielen Dank für deine Antwort.
Um zu sehen welche Dateien in den Ordnern sind arbeitet dein Tool sehr rasant. Aber das ist nur die halbe Miete. Der Code zum Beginn des Threads kam dem was ich suche schon sehr nahe. Einlesen von Textdateien aus Ordnern und Unterordnern, nur das ich die Auswahl nicht nach den Namen der Dateien sondern nach den Ordnernamen benötige und die Dateien/ Daten sollten gleich beim einlesen gesplittet werden.
Schön wäre wenn je gefundenem Ordnernamen ein extra Blatt eingefügt würde und die Dateien/Daten aus diesen Ordner da hineinkämen. (split mit ";") (maximal 3 verschiedene Ordnernamen)
Ich habe zwar schon selbst mit dem split herumgebastelt, was auch funktioniert allerdings erst nach dem Einlesen, was wieder Zeit in Anspruch nimmt. Für einen Tip wie man das in den Ausgangscode bekommt wäre ich dankbar.

schönen Abend

Marc