Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Nächsthöhere Ebene des Ordners mit der Arbeitsmappe ermitteln
Gruppe
Verzeichnis
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