So, ich weiß jetzt wie ich an den Pfad der Main Datei komme:
Mit Active.Workbook.Path

Aber irgendwie komm ich auch nicht weiter...

Gibt e seine Funktion, die nach einer bestimmten Datei erst im Verzeichnis, dann im Überverzeichnis usw sucht?

Oder gibts vielleicht sowas wie string Operationen?
Der erste Teil des Pfades ist ja fest.
Also vielleicht den bekannten Teil abschneiden (C:\....)
dann bleibt Projekt1\Unterverzeichnis2 übrig. Den Text bis zum ersten \ lesen und dann den Pfad wieder zusammenbauen.
"bekannter Pfad" + "gelesene" + Parameter.xls

Ich hoffe mir ist noch zu helfen ;-)
wünsch euch ein schönes We

Gruß Heike

Wenn ich ja durchblicken würde was Du willst, dann wäre das gewiss kein Problem Dir zu helfen.

Gruß Marie

Hab schon befürchtet, dass es ein bißchen unverständlich ist.

Ich hab hier eine Excelliste, die aus einer anderen Mappe Parameter holt. Diese Mappe wird mit Workbooks.Open am Anfang mitgeöffnet.

Das Problem ist jetzt, dass die Ecxelliste für verschiedene Projekte verwendet wird bei der sich die Parameter Datei ändert. Ich möchte den Pfad für die Parameterdatei also nicht fest angeben, sondern jeweils die richtige Parameterdatei öffnen (die sich in einem Überordner befindet).

Die Ordnerstrucktur, hab ich versucht darzustellen. Also
...\Projekt darunter kommt dann die für das Projekt gültige Parameterdatei und dann Unterordner mit den eigentlichen Excellisten.

Ich hoffe das ist verständlicher.

Gruß
Heike

So, ich hab ne Lösung die funktioniert.
Es geht sicher schöner, aber wie gesagt, das sind meine ersten Versuche ;-)
Also falls jemand nen bessern Vorschlag hat, freu ich mich natürlich.

Laenge = Len("D:\.....\Projekte\")
AktuellerPfad = ActiveWorkbook.Path
ProjektPfad = Mid(AktuellerPfad, Laenge + 1)
'nach \ weiter deshalb + 1
PosBS = InStr(ProjektPfad, "\")
'nächsten \ suchen
If PosBS > 1 Then
Projekt = Left(ProjektPfad, PosBS - 1)
'ohne \ deshalb - 1
Else
Projekt = ProjektPfad
End If

Workbooks.Open ("D:\.....\Projekte" & Projekt & "\Parameter.xls")


Gruß
Heike