Microsoft Excel

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