Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verzeichnisspfad

Verzeichnisspfad
26.07.2004 15:41:11
Micha
Es gilt folgendes Problem zu lösen...
Wähle mit Application.GetOpenFilename eine Datei aus, die in einem beliebigen Verzeichniss auf der Festplatte liegen kann.
Nun möchte ich von dieser Datei nur die letzten Ebene des Pfades bekommen.
Z.B. c:\dokumente\test\Unternehmen-A\test.xls
Dann soll dann als Ergebniss nur "Unternehmen-A" rauskommen..
Wie kann man das am einfachsten machen, sei es per VB oder normalen Excel-Funktionen
Vielen Dank im Voraus

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnisspfad
26.07.2004 15:44:59
scorbio
Hatte auch mal das problem versuche es mal hier mit:
Eingabe:
c:\dokumente\test\Unternehmen-A\test.xls 

Private Function cleanPfad(ByVal sEingabe As String) As String
Dim a As Integer
Dim sAusgabe As String
a = 1
Do Until a = 0
a = InStr(a, sEingabe, "\")
If Not a = 0 Then
sAusgabe = sAusgabe & Left(sEingabe, a)
sEingabe = Mid(sEingabe, a + 1)
a = 1
End If
Loop
cleanPfad = Left(sAusgabe, Len(sAusgabe) - 1)
End Function

Ausgabe:
test.xls
AW: Verzeichnisspfad
P@ulchen
Hi Micha,

Function Ordner() As String
Ordner= Right(ActiveWorkbook.Path, Len(ActiveWorkbook.Path) - InStrRev(ActiveWorkbook.Path, "\", -1))
End Function

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: Verzeichnisspfad
26.07.2004 15:55:55
scorbio
Ups er wollte ja den Ordner.
sorry hab mich verlesen
AW: Verzeichnisspfad
26.07.2004 16:24:32
Micha
Funktioniert zwar, aber nicht ganz so, wie ich es mir vorstelle..
Ich hole mir mit GetOpenFilename in die aktuelle Arbeitsmappe einen Pfad von einer externen Datei, die nicht zwangsläufig im selben Pfad liegen muss, wie mein offenes Excel-Sheet.
Und von dieser ausgewählten Datei will ich nun die letzte Ebene des Pfades bekommen.
Dabei liegt die ausgewählten Datei nicht immer in einer identischen Pfadtiefe (von c:\daten\test.xls bis zu c:\daten\test\test\test\.......\test.xls)
AW: Verzeichnisspfad
26.07.2004 16:46:02
scorbio
Du könntest den ActiveWorkbook.Path auch mit einer Variablen ersetzen und diese über die GetOpenFilename-Methode füllen.

Function Ordner() As String
sPath = GetOpenFilename
Ordner= Right(sPath, Len(sPath) - InStrRev(sPath, "\", -1))
End Function

Anzeige
AW: Verzeichnisspfad
P@ulchen
Hi Micha,
probier so:


Sub Ordnername()
Dim vAdr As Variant
Dim Ordner, Ordner2 As String
vAdr = Application.GetOpenFilename
If vAdr = False Then Exit Sub
Ordner = Left(vAdr, Len(vAdr) - Len(Dir(vAdr)) - 1)
Ordner2 = Right(Ordner, Len(Ordner) - InStrRev(Ordner, "\", -1))
MsgBox Ordner2
End Sub


Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: Verzeichnisspfad
26.07.2004 17:31:42
Micha
Klasse klappt einwandfrei...
Vielen Dank für die schnelle Hilfe !!
AW: Verzeichnisspfad ohne VBA
27.07.2004 07:17:32
Heinz
Hallo Micha,
hier noch eine Lösung ohne VBA:
Pfad steht in A1:
=TEIL(A1;FINDEN("#";WECHSELN(A1;"\";"#";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"\";""))-1))+1;FINDEN("#";WECHSELN(A1;"\";"#";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"\";""))))-FINDEN("#";WECHSELN(A1;"\";"#";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"\";""))-1))-1)
Gruß
Heinz

26 Forumthreads zu ähnlichen Themen

Name als variabler Verzeichnispfad
Bruno

Als Speicherort werden für variable Verzeichnispfade Namen definiert und vergeben, wie z.B. für «C:\Kundendevis\PDF_Devis\» der Name «PDFDevis». Wie kann ich nun per VBA mit «ShowSave» zum Speichern den entsprechenden Verzeichnispfadnamen «PDFDevis» aufrufen?
Für Tipps zum Voraus besten Da...
25.10.2008 13:35:10
Thread-ID: 1019189
6 Beiträge
Anzeige
Verzeichnispfad einfügen
Werner Rietschle

Hallo,ich würde gerne in meinen Arbeitsblättern links unten automatisch den Verzeichnispfad eintragen lassen.
Da wir sehr lange Verzeichnispfade haben, brauche ich immer ewig wenn ich sie von Hand schreiben muss.Für einen guten Rat währe ich wirklich sehr dankbar.

10.04.2002 16:26:00
Thread-ID: 112171
11 Beiträge
Verknüpfungspfad automatisch umwandeln
Lonni

Hallo Cracks,
ich habe mehrere Netzlaufwerke verbunden und in einer Datei (LW G:) eine Verknüpfung auf eine Datei auf einem anderen Laufwerk (LW L:).
Leider wird in Excel unter Bearbeiten - Verknüpfungen nur der Laufwerksbuchstabe + Pfad sichtbar, also L:\verzeichnis\datei.xls
Sobal...
05.07.2010 17:30:42
Thread-ID: 1165525
4 Beiträge
Anzeige
Excel-Dateiname o. Verzeichnispfad in Zeile einf.
Peter N

Mit welchem Befehl kann ich NUR den Excel- "Dateiname" OHNE Verzeichnispfad in eine Zeile einfügen. Den nachfolgenden Befehl funktioniert nicht oder ich mache etwas falsch? Ich freue mich eine Lösung... Gruss Peter=TEIL(ZELLE("Dateiname");FINDEN("[";ZELLE("Dateiname"))+1;_FINDEN("]";ZELLE("Date...
19.06.2002 23:15:05
Thread-ID: 130002
6 Beiträge
Variabler Laufwerkspfad
Martin

Guten Tag,
Ich hatte vor kurzem ein Problem, bei dem mir Klaus M.vdT. schon gut weiter geholfen hat.
https://www.herber.de/forum/archiv/1296to1300/t1299960.htm
Jetzt stellt sich mir sofort ein weiteres "Problemchen":
Sub SprecheAlleBlaetterAn_Neu()
Dim wbOld As Workbook
...
28.02.2013 15:29:40
Thread-ID: 1301558
9 Beiträge
Dateiverzeichnisspfad auswählen
Jürgen

Guten Morgen Zusammen,
ich brauche mal eure Hilfe bitte.
Tante Google hat mich nicht wirklich weiter gebracht.
Meine Excelanwendung erstellt eine kleine TXT Datei diese soll je nach Wunsch des Anwenders irgendwo auf seinem Rechner (Laufwerken) abgelegt werden können.
Hierzu wird...
11.05.2013 11:13:59
Thread-ID: 1312541
6 Beiträge
verknüpfungspfad auslesen
thyson

Hallo liebe Experten,
gibt es eine Formel mit der man aus einer Zelle den verknüpften Pfad auslesen kann?
Bsp. A1 ist verknüpft mit "C:externe_DateiC23" und gibt eine Zahl aus. Nun möchte ich per Formel eben den Pfad "C:externe_DateiC23" auslesen/anzeigen lassen. Habe lange im Netz ges...
16.10.2014 12:32:40
Thread-ID: 1386975
4 Beiträge
Verbindungspfad aktualisieren
Sparrow

Hallo!
Ich habe folgendes Problem: Ich habe eine Excel mit einer Verbindungsdatei - diese befindet sich in der gleichen Mappe! Wenn ich diese Excel nun an jemanden anders schicke aktualisiert sich der Pfad in der Verbindungseigenschaft leider nicht. Der andere User hat also meinen Pfad - bs...
20.10.2014 12:30:25
Thread-ID: 1387528
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
10
3
6
5
8
5
3
1
3
2
5
2
3
2
1
4
2
1
2
2
2
4
7