Ich durchsuche jetzt schon seit Tagen das Forum und habe leider keine Lösung für mein Problem gefunden
Ich will über Combobox2 Dateien öffnen.
Über CB1 bekomme ich eine Liste der Ordner auf die ich zugreifen will.
Über CB2 will ich die Dateien des über CB1 ausgewählten Ordners auflisten und öffnen.
Folgenden Code habe ich bereits:
Private Sub UserForm_Initialize()
Const Verz = "D:\Test\"
Dim Datei
Dim Ordner
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
For Each Datei In FSO.getfolder(Verz).Files
Me.ComboBox1.AddItem Datei.Name
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
Me.ComboBox1.AddItem Ordner.Name
Next
End Sub
Private Sub Combobox1_Change()
Const Verz = "D:\Test\"hier sollte der Wert aus CB1 dazukommen
Dim Datei
Dim Ordner
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
For Each Datei In FSO.getfolder(Verz).Files
Me.ComboBox2.AddItem Datei.Name
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
Me.ComboBox2.AddItem Ordner.Name
Next
End Sub
Private Sub ComboBox2_Click()
Workbooks.Open "D:\Test\" & ComboBox2.Text
Unload Me
End Sub
Bitte um hilfe
Danke im Vorraus
lg Sepp