Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub TxtAndXl()
   Dim var As Variant
   Dim sFiles As String
   sFiles = "Text-Files (*.txt), *.txt, "
   sFiles = sFiles & "Word-Files (*.doc), *.doc, "
   sFiles = sFiles & "Excel-Files(*.xls), *.xls"
   var = Application.GetOpenFilename(sFiles)
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und Anwendung