Thema: Nächsthöhere Ebene des Ordners mit der Arbeitsmappe ermitteln

StandardModule: Modul1

Sub GetFolder()
   MsgBox EbeneNachOben
End Sub

Function EbeneNachOben()
   Dim iChar As Integer
   Dim sPath As String
   sPath = ThisWorkbook.Path
   For iChar = Len(sPath) To 1 Step -1
      If Mid(sPath, iChar, 1) = "\" Then Exit For
   Next iChar
   EbeneNachOben = "Obere Ebene: " & Left(sPath, iChar - 1)
End Function

Beiträge aus dem Excel-Forum zu den Themen Datei und Verzeichnis