ich möchte alle Files die "Test-*.xls* auflisten, dann auswählen und öffnen - geht das mit getopenfile() oder gitb es da eine bessere Prozedur - komme leider nicht weitter.
vielen Dank für Unterstützung
mfg Pepi
Sub Open_Test1()
Dim vDateien
vDateien = Application.Dialogs(xlDialogOpen).Show(arg1:="Test-*")
If vDateien = False Then Exit Sub
End Sub