Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Teil des Pfades / bestimmte Stelle


Betrifft: Teil des Pfades / bestimmte Stelle von: Sergej
Geschrieben am: 25.10.2017 23:19:08

Hallo Leute,

wie kann ich mir per VBA von einem Pfad den Teil zwischen zwei / (nach dem Laufwerksbuchstabe quasi den zweiten Verzeichnis) auslesen:

Beispiele:
D:/Projekte/2017/....
S:/Mueller-Schulte/Daten/....

Als Ergebnis soll es "2017" bzw. "Daten" stehen.

Danke vorab.

Gruß,
Sergej

  

Betrifft: AW: Teil des Pfades / bestimmte Stelle von: Luschi
Geschrieben am: 25.10.2017 23:38:15

Hallo Sergej,

das geht so:
Dim pfad As String

pfad = "D:\Projekte\2017\Januar\"
MsgBox Split(pfad, "\", -1, vbTextCompare)(2)

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Teil des Pfades / bestimmte Stelle von: Martin
Geschrieben am: 25.10.2017 23:39:15

Hallo Sergej,

habe es als Function gemacht, damit du es auch als Excel-Formel verwenden kannst:

Sub Beispiel()
    MsgBox SecondFolder("D:/Projekte/2017/")
End Sub

Function SecondFolder(strPfad As String)
    SecondFolder = Split(strPfad, "/")(2)
End Function
Viele Grüße

Martin


  

Betrifft: AW: Teil des Pfades / bestimmte Stelle von: Sergej
Geschrieben am: 25.10.2017 23:46:04

Danke Luschi! Danke Martin!

Beste Grüße,
Sergej


  

Betrifft: www.office-hilfe.com/support/showthread.php/22254 von: lupo1
Geschrieben am: 26.10.2017 09:50:04

=GLÄTTEN(TEIL(WECHSELN(A1;"/";WIEDERHOLEN(" ";99));199;99))


Beiträge aus den Excel-Beispielen zum Thema "Teil des Pfades / bestimmte Stelle"