Office: Daten aus verschiedenen Dateien auslesen

Hallo Zusammen
Ich habe da eine grösserere Aufgabe und denke da kann man sicher etwas automatisieren.

Ich habe auf einem Memorystick 20 Ordner angelegt, das heisst pro Kunde einen Ordner. In diesen Ordnern dann wieder einen Ordner mit dem Jahr und in den einzelnen Ordnern liegen dann die Exceltabellen. Die Excel Tabellen beinhalten Rechnungsdaten. In der Zelle D10 befindet sich die Rechnungsnummer, E10 = Rechnungsdatum und in E21 = Rechnungsbetrag.

Die Inhalte dieser Zellen müssen nun pro Kunde in eine Tabelle. Das heisst pro Kunde muss ich nun eine Arbeitsmappe erstellen und für jede gestellte Rechnung gibt es in dieser Mappe eine Zeile (Rechnungsnummer, Rechnungsdatum, Rechnungsbetrag).

Nun zu meiner Frage

Gibt es eine Lösung dies zu tun, ohne jede von diesen Dateien einzeln zu öffnen und eine Verknüpfung zu machen?

Ich hoffe die Aufgabenstellung ist einigermassen verständlich, falls nicht einfach nochmal kurz nachfragen.

Besten Dank für Eure Unterstützung.

Gruss Adrian75

 

Wenn ich's richtig verstanden habe, dann fällt mir außer VBA nichts ein, was nicht mit ziemlich hohem manuellen Aufwand verbunden wäre und dabei auch dauerhaft nachgepflegt werden müßte.

Ich hab mal was mit der heißen Nadel gestrickt. Die Mappe im Anhang liest alle Excel-Dateien von einem Stamm-Ordner ausgehend ein, öffnet sie kurz und liest einige Werte aus dem 1. Tabellenblatt. Aus dem Pfad werden weitere Werte extrahiert. Das bedeutet:

C:
\Kunden\
Stammordner - ab hier und abwärts werden alle *.xls gesucht.

Die erste Ebene tiefer gibt den Namen des Kunden wieder. Die Ebene darunter die Jahreszahl. Wenn also
C:\Kunden\Mollenhauer\2010\R01.xls
gefunden wird, dann ergibt sich aus dem Pfadnamen der Kundenname "Mollenhauer" und die Jahreszahl "2010".

Dann wird R01.xls geöffnet und aus dem ersten Blatt die von Dir genannten Zellen für Rechnungsnummer, Rechnungsdatum und Rechnungsbetrag ausgelesen.

Diese ganzen Angaben werden dann in einer Liste untereinander protokolliert und am Ende nach Name/Jahr/Nummer sortiert.

Wenn es ungefähr das ist, was Dir vorschwebt, wäre eine Erweiterung, die dann alle Einträge eines Namen in eine neue Mappe exportiert, auch möglich.

Gruß, Michael

 

Hi miriki
Besten Dank für Deine schnelle Hilfe.
Leider funktioniert das ganze nicht unter Office 2010, habe deshalb mal noch Excel 2003 installiert und mir Deine Lösung angeschaut. Es scheint soweit ganz gut zu funktionieren, leider haben sich aber nicht alle beteiligten Personen daran gehalten, die ausgelesenen Felder auch richtig zu füllen, deshalb gibt es ein weiteres Problem.

Ist es möglich aus einem Bereich den grössten Wert auszulesen und diesen dann in die Tabelle zurück zu geben?

Besten Dank im Voruas für die Unterstützung.

Gruss Adrian75

 

Ups? Was funktioniert denn da nicht?

Hihi... Wieso wußte ich das nur? ;-)

Das Makro ist in der Tat völlig ohne weitere Sicherheits-Abfragen gestrickt und verläßt sich damit darauf, daß im Vorfeld wirklich alles in den richtigen Bahnen verlaufen ist.

Mit "Vorfeld" meine ich die einzelnen Dateien, in denen eigentlich per geschützten Blättern, Daten-Gültigkeit usw. dafür gesorgt wird, daß auch sinnvolle Werte rauskommen. Wie heißt es so schön: "shit in, shit out"... ;-)

Im Nachhinein per Makro zu versuchen, die Fehler wieder auszubügeln ist in jedem Fall der schwierigere Weg und ganz pauschal auch der falsche.

Klar... In dem Makro kann natürlich auch ein Bereich abgeklappert werden. Auch könnte man mit .worksheetfunction was werden. Aber ich würd erstmal gucken, ob Du die Eingaben nicht schon per Excel-Möglichkeiten absichern kannst.

Gruß, Michael

 

Hi Michael

Besten Dank, dass Du so schnell geantwortet hast. Der Befehl "With Application.FileSearch" kennt Excel 2010 nicht mehr, habe da auch mal noch ein Bisschen gegoogelt und festgestellt, dass noch andere dieses Problem haben, kriege es dann aber leider nicht gebacken, die Änderungen in Dein Makro zu packen, vielleicht hast Du ja dazu eine Lösung.

Ist es möglich, dass bei Deinem Makro noch eine Worksheet Abfrage stattfindet, denn die Daten werden aus der Arbeitsmappe Zusammenfassung ausgelesen und wenn die Datei gespeichert worden ist und man ist irgendwo auf einem anderen Blatt nimmt er dann diese Daten vom aktiven Blatt und die sind dann halt auch nicht richtig.

Das mit den falschen Daten am flaschen Ort werde ich in den Griff kriegen, da habe ich schon eine Lösung parat.

Ich Danke Dir bestens für Deine Bemühungen.

Gruss Adrian

 

in Ermangelung eines 2010 leider nicht, nein.

Das ist simpel. Du kannst folgende Zeile ändern:

Code:

Set s2 = w2.Worksheets(1)

in

Code:

Set s2 = w2.Worksheets("zusammenfassung")

Die erste Version nimmt immer das 1. Blatt in der Mappe, egal wie es heißt. Die zweite Version nimmt das Blatt anhand des Namens, egal an welcher Stelle in der Mappe es steht.

Gruß, Michael