Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Danke auch dafür! o.w.T
22.04.2010 13:57:09
Volker

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige