ich habe verschiedene Dokumente, die alle mit der gleichen Ordnungsnummer beginnen und als Dateinamen dann verschiendene Endungen haben. Nun möchte ich gern mit der Dialogbox Fileopen z.B. alle Dokumente mit der Ordnungsnummer 130 anzeigen lassen. Ich habe das mit der getopenfilename-Funktion probiert, aber ich kann hier keinen Filter auf die 130 setzen. Geht das nicht, oder hat jemand eine andere Idee wie das funktioneren kann ?
Mit folgendem Code bekomme ich das zwar hin, aber die Datei wird dann auch gleich geöffnet. Nur dass soll dann noch nicht passieren, da erst noch andere Verarbeitungsschritte dazwischen kommen:
Dim strVerzeichnis As String
strVerzeichnis = "E:\Beschaffung\Archiv\2010\Aufträge\"
ChDir strVerzeichnis
Application.Dialogs(xlDialogOpen).Show "130.*"
Besten Dank und Gruß
Stefan K.