VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

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

    


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