Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordernamen auslesen

Forumthread: Ordernamen auslesen

Ordernamen auslesen
04.10.2007 08:48:00
Julia
Hallo,
ich habe eine Datei screen.xls. In dieser möchte ich gerne (Zelle A3) den Ornernamen einlesen in der sich die Datei befindet.
ICh brauche nicht den ganzen Pfad. Lediglich den Ordnernamen in dem die Datei sich befindet.
Jemand eine Idee?
Gruß
Julia

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ordernamen per Funktionen auslesen
04.10.2007 09:03:00
NoNet
Hallo Julia,
Du kannst den Ordnernamen per EXCEL-Funktionen folgendermassen auslesen :


Deie Funktionen in E2 und E3 bitte OHNE { } eingeben, aber dafür mit Strg+SHIFT+ENTER bestätigen, da es sich um MATRIX-Funktionen handelt !
In meinem Beispiel ergibt das diese Inhalte (In E4 der Ordnername) :


Gruß, NoNet

Anzeige
AW: Ordernamen auslesen
04.10.2007 09:11:00
selli
hallo julia,
immernoch bei screen.xls ?
mit folgendem code kannst du den ordner in dem die datei steht in zelle A1 schreiben.

Sub Ord()
Dim i, j As Long
p = ThisWorkbook.Path
j = 1
Do
i = InStr(j, p, "\")
If i > 0 Then j = i + 1
Loop Until i = 0
Cells(1, 1) = Mid(p, j)
End Sub


gruß selli

Anzeige
AW: Ordernamen auslesen
04.10.2007 09:17:55
Chaos
Servus,
oder so:

Sub tt()
Dim nam As String, anz As String
Dim i As Integer
Dim zähler As String
nam = ActiveWorkbook.Path
anz = Len(nam)
zähler = 0
For i = anz To 1 Step -1
Select Case Mid(nam, i, 1)
Case "\":
Exit For
End Select
zähler = zähler + 1
Next i
Range("A3").Value = Right(nam, zähler)
End Sub


Gruß
Chaos

Anzeige
Also wenn schon per VBA, dann aber bitte....
04.10.2007 09:39:36
NoNet
...als Einzeiler :

Function Ordnername()
     Ordnername=split(activeworkbook.path,"\")(ubound(split( _
activeworkbook.path,"\")))
End Function


Gruß, NoNet

AW: Ordernamen auslesen
04.10.2007 11:05:16
Julia
Klappt prima Danke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige