Ordnername ohne Pfad

• Ordnername ohne Pfad von Jorainbo vom 02.12.2003 21:23:23
  • AW: Ordnername ohne Pfad - von Matthias G am 02.12.2003 21:29:59
    • AW: Ordnername ohne Pfad - von Jorainbo am 02.12.2003 22:27:01
      • AW: Ordnername ohne Pfad - von FP am 02.12.2003 22:42:13
  • AW: Ordnername ohne Pfad - von GerdW am 02.12.2003 21:30:54
    • AW: Ordnername ohne Pfad - CurDir - von FP am 02.12.2003 21:49:12
  • AW: Ordnername ohne Pfad - von Sigi am 02.12.2003 22:26:49
    • AW: Ordnername ohne Pfad - von Jorainbo am 02.12.2003 22:30:04

Betrifft: Ordnername ohne Pfad
von: Jorainbo
Geschrieben am: 02.12.2003 21:23:23
hallo Leute,

hat jemand eine Ahnung wie ich NUR den Namen des Ordners, in dem die aktuelle Datei gespeichert ist, auslesen kann ? ActiveWorkbook.Path gibt ja den vollständigen Pfad zurück, ich brauche aber den Ordner alleine.

Danke schonmal für alle Antworten
Tom

Betrifft: AW: Ordnername ohne Pfad
von: Matthias G
Geschrieben am: 02.12.2003 21:29:59
Hallo Jorainbo,
folgende selbstgestrickte Funktion tut's:

Function Ordner(p As String) As String
Dim i, j As Long
j = 1
Do
i = InStr(j, p, "\")
If i > 0 Then j = i + 1
Loop Until i = 0
Ordner = Mid(p, j)
End Function

Gruß,
Matthias

Betrifft: AW: Ordnername ohne Pfad
von: Jorainbo
Geschrieben am: 02.12.2003 22:27:01
hey Matthias, das ist ja der Hammer :-)

Danke, auch den anderen und wohlige Nachtruhe
Tom

Betrifft: AW: Ordnername ohne Pfad
von: FP
Geschrieben am: 02.12.2003 22:42:13
Hallo Tom,

ich weiss zwar nicht wozu man nur den Ordner ( ohne Pfad ??? ) braucht, aber bitte:

Function WBOrdner()
Dim intPL   As Integer
With ActiveWorkbook
intPL = Len(.Path)
WBOrdner = WorksheetFunction.Substitute(.Path, "\", "/", _
intPL - Len(WorksheetFunction.Substitute(.Path, "\", "")))
WBOrdner = Right(WBOrdner, intPL - InStr(WBOrdner, "/"))
End With
End Function

Servus aus dem Salzkammergut
Franz

Betrifft: AW: Ordnername ohne Pfad
von: GerdW
Geschrieben am: 02.12.2003 21:30:54
Um den Aufwand zu minimieren ist die Excelversion schon wichtig.

Gerd

Betrifft: AW: Ordnername ohne Pfad - CurDir
von: FP
Geschrieben am: 02.12.2003 21:49:12
Hallo Tom,

CurDir
gibt den aktuellen Pfad zurück

ThisWorkbook.Path
gibt den Pfad der Mappe ohne den Namen der Mappe zurück

ActiveWorkbook.Path
gibt den Pfad der aktiven Mappe ohne den Namen der Mappe zurück

ActiveWorkbook.FullName
gibt den Pfad und den Namen der aktiven Mappe zurück

Servus aus dem Salzkammergut
Franz

Betrifft: AW: Ordnername ohne Pfad
von: Sigi
Geschrieben am: 02.12.2003 22:26:49
Hallo Tom,

noch'ne Funktion ...

Function OrdnerName() As String
OrdnerName = Right(ActiveWorkbook.Path, Len(ActiveWorkbook.Path) - InStrRev(ActiveWorkbook.Path, "\", -1))
End Function

Gruß
Sigi

Betrifft: AW: Ordnername ohne Pfad
von: Jorainbo
Geschrieben am: 02.12.2003 22:30:04
hi Sigi, noch'n Hammer, funktioniert genauso :-)

Dank und Gruß
Tom

Excel-Beispiele zum Thema " Ordnername ohne Pfad"
Ordnernamen eines Verzeichnisses in Zelle einfügen