Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1944to1948
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
Ordnerpfad suchen und in Zelle ausgeben
29.08.2023 11:39:23
FranzSt
Hallo Excel-Freunde,

Ich durchforste dieses Forum schon lange und es half mir bisher immer sehr. Vielen Dank dafür.
Nur leider weiß ich keinen Rat und würde mich an euch direkt wenden.

Ich bräuchte Hilfe.

Ich hätte es gerne umgesetzt,
Dass über einen Wert, in einer Zelle einer ein Ordnerpfad ausgegeben wird.

Bsp.: im Ordner C:/Test/ befinden sich 30 Ordner, alle starten mit einer fünf stelligen Nummer, der Rest der Bezeichnung kann komplett variieren.

In Zelle A1 trage ich die fünfstellige Nummer ein und in Zelle B2 wird mir der Ordnerpfad ausgegeben.
In Zelle A2 soll dies aber ebenfalls möglich sein. Usw…

Da es sich um mehrere Zeilen handelt, die dieses beinhalten sollen, hatte ich an eine Funktion gedacht in Kombination mit einer zellformel hinterlegt ist, aber ich komme nicht weiter.

Über eine Idee wäre ich dankbar.

Vielen Dank im Voraus!

Mit freundlicheny Grüßen
Franz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordnerpfad suchen und in Zelle ausgeben
29.08.2023 11:50:32
Rudi Maintaire
Hallo,
kleine UDF.
In ein Modul:
Function mySubFolder(strFolder As String, rngNummer As Range)

If Right(strFolder, 1) > "\" Then strFolder = strFolder & "\"
mySubFolder = Dir(strFolder & rngNummer & "*", vbDirectory)
End Function

B2: =mysubfolder("c:\test"; A2)

Gruß
Rudi
AW: Ordnerpfad suchen und in Zelle ausgeben
29.08.2023 12:06:13
FranzSt
Hallo Rudi und vielen Dank.
Das funktioniert super!

@daniel, beim antworten ist mir deine Nachricht noch aufgefallen.

Vielen Dank auch dir.

Habt mir beide super geholfen!
Danke.
AW: Ordnerpfad suchen und in Zelle ausgeben
29.08.2023 12:00:46
daniel
Hi
die Function dazu könnte so aussehen:
diese berücksichtigt, dass es mehrere Ordner geben könnte und listet alle in der Zelle auf
die Eingabe erfolgt in der Form:
=VollständigerOrdnername("C:\Test\";A1&"*")

der Stern muss mit dazu, damit du selber ohne eingriff in die den Code steueren kannst, ob mit "beginnt mit, endet mit oder enthält gesucht wird

Function VollständigerOrdnername(Pfad as String, Ordnername As String) As String

Dim Ordner As String
Dim txt As String
If Not Pfad Like "*\" Then Pfad = Pfad & "\"
Ordner = Dir(Pfad & Ordnername, vbDirectory)
Do Until Ordner = ""
txt = txt & "|" & Pfad & Ordner
Ordner = Dir
Loop
VollständigerOrdnername = Mid(txt, 2)
End Function

Gruß Daniel
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige