Teil des Pfades anzeigen

Forumthread: Teil des Pfades anzeigen
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Teil des Pfades anzeigen

23.05.2016 23:01:45

Selma

Hallo Leute,
ich habe diesen Pfade:
Z:\Mustermann\PRJ-TOK16\Daten\NEU\Bestelungen.docx
Z:\Work\Mustermann\Projekte-TOK2016\Daten\NEU\Bestelungen.docx
Wie bekomme ich diese Teile "PRJ-TOK16" oder "Projekte-TOK2016" per VBA ausgelesen?
Also quasi von links aus gesehen, nach dem Wort Mustermann den teil (ohne \).
Viele Grüße,
Selma

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Teil des Pfades anzeigen

23.05.2016 23:11:23

Arthur

AW: Teil des Pfades anzeigen

23.05.2016 23:11:23

Arthur

Hallo Selma.
... einfach suchen.

Sub bcd()
'Const c1 As String = "Z:\Mustermann\PRJ-TOK16\Daten\NEU\Bestelungen.docx"
Const c1 As String = "Z:\Work\Mustermann\Projekte-TOK2016\Daten\NEU\Bestelungen.docx"
Const c3 As String = "Mustermann\"
Dim str As String
str = Mid$(c1, InStr(c1, c3) + 12)
str = Left$(str, InStr(str, "\") - 1)
Debug.Print str
End Sub

Gruß, Arthur.