Öffnen einer Datei mit GetOpenFilename

[Rabe]

Hi,

wie kann ich eine Datei mit vorgegebenem Pfad über GetOpenFilename auswählen.
So wird beim ersten Aufruf des Makros kein Pfad übergeben:

'Daten holen über GetOpenDatei 
Sub Daten_Import()
   Dim wbkQuelle As Workbook
   Dim wbkZiel As Workbook
   
   strPfadDatei = ""
   strPfad = ""
   strPfad = ThisWorkbook.Path & "\Anfrage\"           'sichern Original-Pfad 

   On Error Resume Next
   strPfadDatei = strPfad & Application.GetOpenFilename("Excel-Dateien (*.xl*), *xls;*xlsx;*xlsb;*xlsm")
   Workbooks.Open strPfadDatei, notify:=False          'Öffnen der Datei aus dem Pfad 
   If Err > 0 Then Exit Sub   'Exit wenn -keine Datei- gewaehlt wurde 
   On Error GoTo Fehler
   
   Set wbkZiel = ThisWorkbook

Wenn ich den Pfad aber schon mal ausgewählt habe, dann steht er zwei Mal in der Variablen drin und die Datei wird natürlich nicht gefunden.
Wie geht das richtig?

[snb]

Code:

Sub M_snb()
   With Application.FileDialog(1)
      .InitialFileName = "G:\OF\*.xlsx"
      If .Show Then MsgBox .SelectedItems(1)
    End With
End Sub

[Rabe]

Hi,

das ist ja einfach, danke!