Ich habe folgenden Code in meiner Userform2.
Private Sub CommandButton1_Click() Unload Me End Sub 'XXXXXXXXXXXX Private Sub UserForm_Initialize() Daten.TextBox1 = Kundenstamm.TextBox1 Dim fs As Object Dim Ordner As Object Dim Datei As Object, Item If TextBox1 > 0 Then Me.ListBox1.Clear Set fs = CreateObject("Scripting.filesystemobject") Set Ordner = fs.GetFolder("C:\Geschäft\Kunden\" & TextBox1.Value) Set Datei = Ordner.Files For Each Item In Datei Me.ListBox1.AddItem Item.Name Next End If End Sub 'XXXXXXXXXXXX Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim strPath As String, strFile As String strPath = "C:\Geschäft\Kunden\ & TextBox1.Text\" strFile = ListBox1.Text If Dir(strPath & strFile) > "" Then Open_File strPath & strFile, 1 End If End SubHierbei holt sich die UF2Textbox1 einen Kundennamen aus UF1Textbox1, listet dann alle in dem Kundennamenordner abgelegten Dateien auf.
Nun möchte ich per Doppelklick die Dateien öffnen, doch es passiert nichts. Weiß jemand einen Rat?
PS.: die genauen Ordnernamen kann ich vorher nicht definieren, da diese eigenständig duch Neuanlegen eines neuen Kunden generiert werden.