Clever-Excel-Forum

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?

Code:
Sub M_snb()

   With Application.FileDialog(1)

      .InitialFileName = "G:\OF\*.xlsx"

      If .Show Then MsgBox .SelectedItems(1)

    End With

End Sub

Hi,

das ist ja einfach, danke!

Rabe

snb

Rabe