Gruppe
UDF
Problem
Die benutzerdefinierte Funktion liefert das dem Verzeichnis dieser Arbeitsmappe übergeordnete Verzeichnis gem. Parameter.
StandardModule: Modul1
Function GetParentDir(iDir As Integer) As String
Dim iChar As Integer, iAct As Integer
Dim sDir As String
sDir = ThisWorkbook.Path
For iAct = 1 To iDir
iChar = Len(sDir)
Do Until Mid(sDir, iChar, 1) = "\"
iChar = iChar - 1
Loop
sDir = Left(sDir, iChar - 1)
Next iAct
GetParentDir = sDir
End Function