Gruppe
Dialog
Problem
Der GetOpenFileName-Dialog soll mit den Dateifiltern Text, Word und Excel aufgerufen werden.
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