Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unterordner in Combobox

Forumthread: Unterordner in Combobox

Unterordner in Combobox
Volker
Hallo zusammen,
ich versuche die Unterordner eines Ordners in einer UF-Combobox aufzulisten. In der Recherche habe ich viel über die Anzeige von Dateien eines Ordners gefunden, aber nichts über Unterordner (event. übersehen).
Hätte jemand einen Tip für mich?
Danke und Gruß
Volker
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Unterordner in Combobox
22.04.2010 12:49:25
Uppe
Hallo Volker,
vielleicht hilft Dir Application.FileSearch.SearchFolders weiter.
GRuß Uppe
AW: Unterordner in Combobox
22.04.2010 12:56:24
Volker
Hallo Uppe,
Danke für Deine Antwort, wenn ich ehrlich bin, nicht so richtig. Es hapert am Zusammenbau des Codes.
Der Ordner mit den Unterordnern liegt auf C:\test.
Danke und Gruß
Volker
Anzeige
AW: Unterordner in Combobox
22.04.2010 13:15:12
Rudi
Hallo,
in ein Modul: 
Function MySubFolders(sFolder As String)
Dim oFS As Object, oSFldr As Object, oFldr As Object
Dim arrTmp(), n
Set oFS = CreateObject("Scripting.filesystemobject")
Set oFldr = oFS.getfolder(sFolder)
For Each oSFldr In oFldr.subfolders
n = n + 1
ReDim Preserve arrTmp(1 To n)
arrTmp(n) = oSFldr.Name
Next
If n > 0 Then
MySubFolders = arrTmp
Else
MySubFolders = ""
End If
End Function
in der UF 
Private Sub UserForm_Activate()
Dim arrList
arrList = MySubFolders("c:\test")
ComboBox1.Clear
On Error Resume Next
ComboBox1.List = arrList
On Error GoTo 0
End Sub
Gruß
Rudi
Anzeige
AW: Unterordner in Combobox
22.04.2010 13:21:15
Volker
Hallo Rudi,
vielen Dank für die Antwort, genau das habe ich gesucht!
Danke und Gruß
Volker
ohne On Error
22.04.2010 13:26:44
Rudi
Hallo, 
Private Sub UserForm_Activate()
Dim arrList
arrList = MySubFolders("c:\Test")
ComboBox1.Clear
If IsArray(arrList) Then ComboBox1.List = arrList
End Sub

Gruß
Rudi
Anzeige
Danke auch dafür! o.w.T
22.04.2010 13:57:09
Volker
;

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