ich habe die Funktion:
Function GetFolder(Optional strDefDir As String = "", Optional ByVal strTitle = "") As String
GetFolder = ""
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = strDefDir
.Title = strTitle
.Filters.Add "XML-Dateien", "*.xml", 2
.FilterIndex = 2
If .Show = -1 Then GetFolder = .SelectedItems(1)
End With
End Function
die ich in einem Makro mit der Zeile
strFolder = GetFolder("G:\Projekte\Grunddaten\", "Ordner wählen")
öffne.
Allerdings erhalte ich hier immer wieder den Fehler 9 (Index außerhalb des gültigen Bereichs).
Wenn ich beim Debuggen die Zeilen
.Filters.Add "XML-Dateien", "*.xml", 2
.FilterIndex = 2
auskommentiere, läuft das Script durch.
Dann habe ich auch festgestellt, dass das Programm immer beim ersten Aufruf den Fehler bringt - nach mehreren Anläufen funzt es dann einwandfrei (auch ohne der Auskommentierung).
Kann hier jemand helfen und sagen woran es liegt?
Vielen Dank
Thomas