Guten Morgen

kämpfe mit kleinem problem, möchte via INPUTBOX Dateierweiterung auswählen
es sollte "*." FIX sein, nur Wahl XLS, XLA, PDF usw nötig
es kann auch bereits XLS in INPUTBOX stehen und mit Enter weiter
da keine Änderung

AUSZUG aus Code

Set fsObjekt = Application.FileSearch
With fsObjekt
.LookIn = "C:\DATEN\" 'anpassen Suchort
.SearchSubFolders = True
.Filename = "*.doc" 'anpassen auf Dateiendung

If .Execute() > 0 Then

Danke
und allen einen schönen Sonntag auch wenn es etwas regnet

gruss geri