Gruppe
Datei
Bereich
Verzeichnis
Thema
Nächsthöhere Ebene des Ordners mit der Arbeitsmappe ermitteln
Problem
Der Ordner in der nächsthöheren Ebene des Verzeichnisses der Arbeitsmappe soll ermittelt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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