Hallo zusammen,
ich benötige mal wieder Hilfe.
Ich habe eine UF mit zwei Comboboxen. In der ersten werden die Unterordner eines Verzeichnisses aufgelistet. Funktioniert auch.
Jetzt möchte ich den Inhalt des in Combobox1 ausgewählten Ordners in Combobox2 anzeigen.
Ich habe versucht mittels nachstehendem Code etwas zu erreichen.
Anscheinend stimmt er nicht.
Dim strFile As String
strPath = "C:\AAA\BBB\" & UserForm3.ComboBox1.Value
strFile = Dir(strPath & "*.xls")
If strFile "" Then
With UserForm3.ComboBox2
.Clear
Do
.AddItem strFile
strFile = Dir
Loop Until strFile = ""
End With
End If
Danke und
Gruß
Volker