Hallo zusammen,
folgendes Problem:
Ich möchte Daten aus verschieden *.ppd Dateien einlesen. Dazu habe ich den Pfad für die zu öffnende Datei bereits mit:
DateiPfadNeu = ThisWorkbook.Path
ChDir DateiPfadNeu + "\Dokumentation"
eingekreist. Dann kommt mit:
FileToOpen = Application.GetOpenFilename _
("Format Dateinen (*.ppd), *.ppd", , "Ein Format auswählen - alle Formatdaten werden eingelesen!")
das Auswahlmenue. Dies möchte ich mir aber gerne sparen falls im dem angegebenen Pfad mindestens eine *.ppd Datei enthalten ist. Falls keine *.ppd Datei vorhanden ist soll das Standard-Auswahlmenue kommen.
Wer kann helfen?
Grüße
Christian