Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1880to1884
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
Inhaltsverzeichnis

Ordner Namen auslesen mit Pfad Abfrage

Ordner Namen auslesen mit Pfad Abfrage
04.05.2022 12:03:50
Markus
Hallo,
meine VBA Kenntnisse sind leider veraltet. Ich möchte die Namen der Ordner auslesen und in eine Excel Liste bringen. Das klappt soweit mit untenstehendem Code. Ich möchte aber das man nach dem Pfad gefragt wird und diesen dann in einer Abfrage Box eingeben kann. Was noch besser wäre, wenn man den Pfad in der Excel Mappe stehen hat z.B. in Zelle B1 und er alle Ordner Namen in Spalte A aufführt, danach will ich einen Link aus dem Ordner Namen erstellen, so das man wenn man den Link anklickt direkt in den Ordner gelangt.
Vielen Dank für Eure Bemühungen mir zu helfen!
Lg. Markus
Option Explicit

Public Sub OrdnerAuflisten()
Dim objFSO As Object
Dim folder As Object
Dim strPfad As String
Dim subFolder As Object, colSubfolders As Object
Dim i As Integer
'Pfad hier ersetzen zum Verzeichnis, das ausgelesen werden soll
strPfad = "G:\000 BILDER"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set folder = objFSO.GetFolder(strPfad)
Set colSubfolders = folder.Subfolders
'hier Startzeile-1 für Excel festlegen
i = 1
For Each subFolder In colSubfolders
i = i + 1
Range("A" & i).Value = subFolder.Name
Next subFolder
Set folder = Nothing
Set colSubfolders = Nothing
Set objFSO = Nothing
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner Namen auslesen mit Pfad Abfrage
04.05.2022 12:07:02
Rudi
Hallo,
strPfad = Range("B1")
Gruß
Rudi
AW: Ordner Namen auslesen mit Pfad Abfrage
04.05.2022 12:24:30
Markus
Ach Rudi vielen Dank!!!
Ja super es klappt. Ich hatte es zwar auch schon so versucht, aber ich glaube die Klammern hatten bei mir gefehlt....
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige