in Spalte A meiner Datei stehen fortlaufende Auftragsnummern (z.B. 785-20). Mit einem Doppelklick in Spalte 6 wird ein Openfilename-Dialog geöffnet und es werden mir alle Dateien angezeigt, die mit der aktuelle Auftragsnummer beginnen. Zusätzlich werden mir aber auch alle Dateiordner mit angezeigt, die sich in dem aktuellen Pfad befinden. Ich möchte den Dialog nun so erweitern, dass nur die Ordner (und Dateien) angezeigt werden, die (in diesem Beispiel) mit 785-20 beginnen.
Kann mir da bitte jemand behilflich sein ? Nachfolgend der relevante Teil des Codes (den ich leider nicht wirklich verstehe)...
Vielen Dank vorab.
Gruß Stefan
Dim Filter As String
Dim OFName As OPENFILENAME
Filter = [AR1].Value 'Zwischenspeichern des durch Doppelklick ausgewählten Dateinamen Blattname = ActiveSheet.Name
OFName.lStructSize = Len(OFName)
OFName.lpstrFilter = Filter & "*.*" + Chr$(0) + Filter & "*.*" + Chr$(0)
OFName.lpstrFile = Space$(254) 'Pfad mit Dateiname
OFName.nMaxFile = 255
OFName.lpstrFileTitle = Space$(254) 'Nur der Dateiname
OFName.nMaxFileTitle = 255
OFName.lpstrInitialDir = "E:\Beschaffung\Archiv\" & Blattname & "\Aufträge\"
OFName.lpstrTitle = "Bitte wählen Sie eine Datei aus