Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfad dann zwei Verzeichnisse zurück

Forumthread: Pfad dann zwei Verzeichnisse zurück

Pfad dann zwei Verzeichnisse zurück
01.08.2017 10:38:16
Sergej
Hallo Leute,
hier mit bekomme ich den Pfad (ohne Dateiname) der aktuell geöffnete Datei.
Sub StellePfadDar()
MsgBox "Pfad der Arbeitsmappe:" & vbLf & ThisWorkbook.Path
End Sub
Was muss ich bitte ändern, um zwei Verzeichnisse davor zu erhalten ..\..\
Gruß,
Sergej
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad dann zwei Verzeichnisse zurück
01.08.2017 11:18:21
Luschi
Hallo Sergej,
hier mal mein Versuch: 

Function Pfad_2_davor()
Dim sArr() As String, sPfad As String, _
i1 As Integer, i2 As Integer
sPfad = ThisWorkbook.Path
Debug.Print sPfad
sArr = Split(sPfad, "\", -1, vbTextCompare)
i1 = UBound(sArr())
sPfad = ""
For i2 = 0 To i1 - 2
sPfad = sPfad & sArr(i2) & "\"
Next i2
Erase sArr
Pfad_2_davor = sPfad
End Function
Sub testen()
MsgBox Pfad_2_davor()
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
Eine weitere Möglichkeit...
01.08.2017 12:57:29
Case
Hallo, :-)
... wäre "ChDir" und dann "CurDir": ;-)
Option Explicit
Sub Main()
ChDir ThisWorkbook.Path
Debug.Print ThisWorkbook.Path
ChDir ("..\..")
Debug.Print CurDir()
End Sub
Servus
Case
Anzeige
und noch eine ...
01.08.2017 14:22:31
KlausF
Hi, aus meiner Sammlung:
Function GetParentDir(iDir As Integer) As String
Dim iChar As Integer, iAct As Integer
Dim sDir As String
sDir = ThisWorkbook.Path
For iAct = 1 To iDir
iChar = Len(sDir)
Do Until Mid(sDir, iChar, 1) = Application.PathSeparator
iChar = iChar - 1
Loop
sDir = Left(sDir, iChar - 1)
Next iAct
GetParentDir = sDir
End Function
Mit getparentdir(2) gehst Du 2 Ebenen höher, analog getparentdir(1) usw.
Gruß
Klaus
Anzeige
AW: und noch eine ...
01.08.2017 16:22:27
Sergej
Danke an Alle. Es funktioniert.
Beste Grüße,
Sergej
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige