VBA:Verzeichnisvariable auf Überverzeichnis setzen

Tach’chen.

Wenn ich in Excel VBA ein Verzeichnis in eine Variable schreiben möchte, dann klappt das noch ganz gut. Auch wenn ich die Variable in ein zugehöriges Unterverzeichnis umschreiben will, geht das vereinfacht dargestellt wie folgt:

dim Variable As StringVariable = ThisWorkbook.Path & „\Unterverzeichnis“

Was aber, wenn ich ins Überverzeichnis wechseln möchte? So:

Variable = ThisWorkbook.Path & „…“
klappts nicht, und das ist ja auch ganz einleuchtend, aber wie dann?

Problematisch ist vor allem, dass ich „\Unterverzeichnis“ und „…“ aus Zellen in der Tabelle auslesen möchte und nicht hardcodiert im VBA-Quelltext stehen soll.

Vielen Dank
TTR

Hallo,

ein Pfad ist doch auch nur ein String, schneide den doch einfach nach dem letzten Backslash ab.

 n = InStrRev(ThisWorkbook.Path, "\")
 Variable = Left(ThisWorkbook.Path, n)

Gruß, Rainer