Ist es möglich, in einem Ordner bestimmte Files (*.xls) sortiert nach Filename, Mutationsdatum, etc. aufwärts oder abwärts sortiert anzuzeigen, auszuwählen und zu öffnen.
vielen Dank
mfg
Pepi
Application.Dialogs(xlDialogOpen).Show
Sub FileOpen()
Dim vFile As Variant, sPath As String
sPath = ThisWorkbook.Path
ChDrive Left(sPath, 2)
ChDir sPath
vFile = Application.GetOpenFilename("Exceldateien (*.xls),*.xls") ' Test*.xls geht nicht!!
If vFile = False Then Exit Sub
MsgBox Dir(vFile) 'vfile ist Filename mit Pfad
Exit Sub
Workbooks.Open vFile
End Sub
Nehme gerne weitere Tipps entgegen.