Externe Daten abrufen - nach Bezug

Guten Morgen,
habe da folgende Idee.
Hintergrund: ich möchte in einer Arbeitsmappe (Ziel) Daten aus anderen Arbeitsmappen (Vorlage) abrufen und mir in der Mappe Ziel anzeigen lassen.
Schwierigkeit: die Arbeitsmappen (Vorlage) sind nicht in der Arbeitsmappe (Ziel), sondern liegen einzeln in Unterordnern.
Die wie folgt aufgebaut sind:
Der Ordner Name steht in A:A (ist eine fortlaufende Nummer) und ist somit immer ein anderer
Der Datei Name steht in D:D und ist immer der gleiche
Somit wäre der Pfad für die Verknüpfung1: C:\Test\1\Vorlage
Somit wäre der Pfad für die Verknüpfung2 :C:\Test\2\Vorlage
usw.
Aus den Arbeitsmappen (Vorlage) soll jeweils aus B1 der Wert geholt werden und in die entsprechende Zeile in die Arbeitsmappe (Ziel) in die Spalte C:C übergeben werden.
um die Werte aus einem Blatt zuholen was sich in der gleichen Arbeitsmappe befindet, verwende ich so einen Code (is nur ein Bsp):
=@WENN(@ISTFEHLER(FINDEN({" ";"*";"#";"+";"-"};A5));INDIREKT(A5&"!y4");INDIREKT("'"&A5&"'!y4"))
jetzt ist die Frage wie ich ihn erweitere oder abändere um:
1. den Hauptpfad aller Dateien zu finden (also alle Ordner liegen unter dem Ordner mit der Arbeitsmappe Ziel
2. in dieser Ordnerstruktur dann den richtigen Ordner zu finden (Name des Ordner steht in A:A)
3. in diesem "Unterordner" dann den Wert aus dem Tabellenblatt1 Zelle B1 auslese
4. diesen Wert in die Arbeitsmappe (Ziel) hier in das Tabellenblatt1 in die Spalte C:C übergebe
das ich dann zum Bsp.
in A1 = Name des Unterordners (gebe ich per Hand ein)
in D1 = steht der Name der Vorlage (gebe ich per Hand ein und ist IMMER gleich)
und anhand dieser Infos wird dann der richtige Unterordner geöffnet und dort dann die Vorlage geöffnet und hier dann aus B1 der Wert ausgelesen
und an C1 im Ziel Übergeben
Habe versucht es in einem Bild darzustellen:
Userbild

vielleicht hat jemand einen Tipp für mich
Danke
Marcus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

@ Boris,
ja es geht in die richtige Richtung, ich habe es nur falsch erklärt, Entschuldigung.
also folgendes Bsp.
Pfad der Datei Ergebnis Name des Unterordners Name der Quelldatei
C:\test\ aus dem Ordner C:\test\1\vorlage und hier aus dem Blatt1 den Wert aus B1 1 Vorlage
C:\test\ aus dem Ordner C:\test\2\vorlage und hier aus dem Blatt1 den Wert aus B1 2 Vorlage
C:\test\ aus dem Ordner C:\test\3\vorlage und hier aus dem Blatt1 den Wert aus B1 3 Vorlage
c:\test\ = wäre der Pfad wo die Datenerfassung liegt
\1\ = wäre der Wert aus der Spalte D
ich weis nicht ob man das so umsetzen kann
Hintergrund, ich lasse anhand eines Codes, einen Ordner anlegen mit einer fortlaufenden Nummer (aus Spalte A) und in diesen immer die gleiche leere Vorlage reinkopieren.
Jetzt muss ich jede Datei öffnen und mir das Endergebnis (aus C1) rauskopieren und in die Hauptdatei kopieren, es wäre halt schick wenn ich es automatisch bekommen könnte.
früher wo noch alle Arbeitsblätter noch in einer Mappe waren, habe ich das so gelöst:
=@WENN(@ISTFEHLER(FINDEN({" ";"*";"#";"+";"-"};A5));INDIREKT(A5&"!c4");INDIREKT("'"&A5&"'!c4"))
aber jetzt sind es über 250 Blätter, das Excel öffnet sich nur noch selten, deswegen habe ich die Dateien in Unterordner abgelegt und diese würde ich gerne auslesen.
Ich habe nur keine Ahnung wie ich dazu ein Muster machen könnte?
Also der Pfad für die Quellordner liegt immer unter der Datei Ziel.
Unterordner erhalten ihren Namen aus der Zieldatei und hier aus Spalte D
Name der Datei in dem Unterordner ist immer gleich und heißt Vorlage
somit wäre der Pfad für die erste Zeile
C - Test - Unterordner 1 und dort die Quelle Vorlage und dort Zelle B1 auslesen und an die Quelle C:C übertragen
somit wäre der Pfad für die erste Zeile
C - Test - Unterordner 2 und dort die Quelle Vorlage und dort Zelle B1 auslesen und an die Quelle C:C übertragen
Auslesen soll er in jeder Datei B1 und diesen Wert immer in C:C eintragen zusammenpassend natürlich mit der Nummer des Unterordners
Ich hoffe ich konnte es erklären, es ist schwierig wenn man keine Musterdatei erstellen kann. Ich würde gerne wüsste nur nicht wie?
Danke im Voraus
Marcus
und wirklich recht herzlichen Dank für die Zeit und Geduld

Beliebteste Forumthreads (12 Monate)

Externe Daten abrufen - nach Bezug

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread