Err 438 bei FileDialog.Filters.Add
13.04.2016 15:51:14
Heiz
Code shrinked to the min
Option Base 0
Option Compare Binary
Option Explicit
Dim Dlg As FileDialog
Dim strFilter As String
Dim strFilDesc As String
Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
Dlg.Filters.Clear
Dlg.Filters.Add "Beschreibung", "*.xls", 1
endet ebenso im ERR 438
wie wenn ich vorher die Variablen strFilter und strFilDesc mit Strings abfülle oder wenn ich Cstr(strFilter) verwende.
Umgebung:
Windows 7 Enterprise ServicePack1
64Bit
Office
VBA 7.0
Hat irgend jemand eine Idee?