Excel: Daten von anderen Excel-Files mittels Variablen auslesen

[forumwurm]

Hallo zusammen

Hab mal wieder besondere wünsche hier ein kurze darstellung:

In einem Ordner gibt es diverse Unterordner mit der selben struktur

123_ordnerxy
5324_namezzz
6345_undnocheinordner
345_etc_usw_usf

in jedem ordner gibt es ein gleichnamiges excel-sheet. also im ordner 5324_namezzz gibt es ein 5324_namezzz.xls

Nun habe ich übergeordnet ein haupt xls-dokument.

In diesem habe ich nun eine zelle in dem der name des ornders steht (also 5324_namezzz). wie kann ich nun in der nächsten Zelle einen wert aus dem 5324_namezzz.xls auslesen, indem ich das nicht manuell suche und verbinde, sondern mit der namen der vorherigen zelle arbeite.

A1 = 5324_namezzz
A2 = z.b. Wert von Zelle B3 aus workbook1 von 5324_namezzz.xls

Ich hoffe Ihr versteht was meine absicht ist, ansonsten einfach nachfragen.

Vielen Dank für eure Hilfe

thx4nfo fw

[muppets]

Ist VBA zulässig? Damit sollte es einfach gehen, siehe Anlage. Hoffentlich habe ich dich richtig verstanden.

Gruß
muppets

[forumwurm]

Hi muppets

ich glaube ohne VBA ist es gar nicht möglich, ausser die datei wäre geöffnet, was bei ca. 50 - 100 Ordnern und Dateien nicht möglich ist.

Ich habe das VBA kurz angeschaut, muss aber auch sagen, dass ich davon wenig bis keine Ahnung habe.

Es geht jedoch in die richtige Richtung. Kannst du (oder sonst ein vba spezi) mal kurz mein angehängtes file anschauen.

wie könnte man das anpassen, damit alle werte von allen files in !AlleWerte.xls ausgegeben werden?

Wie würde die Zeile für die Ordner heissen in VBA. Der ordner muss nicht als variable aus einer zelle ausgelesen werden, das könnte "hardcoded" im vba sein.

(vorischt, habe den pfad auf d:\test\ geändert)

vielen dank.

[muppets]

Hallo Forumwurm,

schau mal, ob das jetzt besser passt. "Fest verdrahtet" wäre es noch weniger elegant als mein Vorschlag, der die Ordner- und Dateinamen in !AlleWerte.xls braucht. Am elegantesten wäre es natürlich im VBA-Makro alle Unterordner automatisch abzuklappern. Das wäre prinzipiell auch nicht schwer, aber sicherlich nicht so auf die Schnelle gemacht.

Grüße
muppets

[AMI]

Hallo forumwurm,

anbei die Lösung...

Grüßle

AMI

[AMI]

Hallo nochmal,

muppets hat natürlich Recht... und sooo schön kommentiert

Grüßle

AMi

[Tilo2300]

Den Pfad zur "Hauptmappe" kann man auch dynamisch verbuchen.
Dann muß man nicht immer den Quelltext ändern, wenn man mal die Mappe woanders ablegt.

Wenn man beispielsweise in der Hauptmappe in Zelle "G1" folgende Formel einträgt...

=LINKS(ZELLE("Dateiname";$A$1);FINDEN("[";ZELLE("Dateiname";$A$1))-2)

... gibt diese den Pfad zur Mappe zurück.

In Modul1 hab ich dann nur folgende Zeile geändert:

Sub fw()
    Dim ordner As Variant
    Dim datei As Variant
    Dim quelle As Variant
    Dim inhalt As Variant

    Dim licounter As Integer
    
    For licounter = 2 To ThisWorkbook.Sheets("Tabelle1").UsedRange.Rows.Count
    
        ordner = ThisWorkbook.Sheets("Tabelle1").Cells(licounter, 1)
        datei = ThisWorkbook.Sheets("Tabelle1").Cells(licounter, 2)
    
        Workbooks.Open Filename:=Range("G1").Value + "\" + ordner + "\" + datei + ".xls", UpdateLinks:=3
        Workbooks(datei + ".xls").Activate
        inhalt = Sheets("Tabelle1").Cells(3, 2).Value
        ActiveWorkbook.Close savechanges:=False
        ThisWorkbook.Sheets("Tabelle1").Cells(licounter, 3) = inhalt
    
    Next licounter
    
   
    
End Sub

Jetzt funktioniert's nicht nur in "d:\Helpline\Alle Werte\".


Wenn man jetzt die Formel noch so in VBA umwandelt, daß man nicht die Krücke über die Arbeitsblattfunktionen in einer Zelle nehmen muß, kann man sich die "Hilfszelle" sparen.

Allerdings habe ich persönlich gerade keinen Plan, wie.

[muppets]

Interessant wäre auch mal eine Rückmeldung des Initiators dieses Threads ...

[forumwurm]

sorry für die verspätung. werde das heute noch testen und mich wieder melden

[forumwurm]

hab das nun meinem bedürfnissen angepasst, zumindest nach der muppets variante und das sieht schon mal sehr viel versprechend aus.

werde noch gewisse sachen optimieren müssen und lerne langsam vba zu verstehen.

danke schon mal allen und ich werde sicher noch die eine oder andere frage haben....