Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige