Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
AW: und noch eine ...
01.08.2017 16:22:27
Sergej
Danke an Alle. Es funktioniert.
Beste Grüße,
Sergej

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige