Ich hab glaub schon ziemlich alles versucht - alles endet im Err 438 - da frag ich mich schon, warum das Objekt diese Methode nicht unterstützt
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?