Hallo Zusammen
Hoffe jemand von euch kann mir weiterhelfen.
Final möchte ich
1. Dateiordner öffnen und alle darin gespeicherten Exceldateien anzeigen
2. Eine der angezeigten Dateien selektieren und im VBA weitergeben
3. Im Hintergrund Daten kopieren kann und in geöffneten File einlesen => dieser Teil funktioniert mit unten aufgeführten Code

Ich benötige Hilfe bei den Punkten 1 & 2 .
---------------------------------------
Sub kopieren()
Dim sPfad As String
Dim wbQuelle As Workbook

'ScreenUpdating und PopUps deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'Dateipfad der Quelldatei
sPfad = "intraDesktopTestmappe1.xlsx"

'Prüfen, ob Datei existiert
If Dir(sPfad) > "" Then

'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(sPfad)

'Daten kopieren und einfügen
wbQuelle.Worksheets(1).Range("A1:a10").Copy ThisWorkbook.Worksheets(1).Range("A8")

'Arbeitsmappe schließen
wbQuelle.Close SaveChanges:=False
End If


End Sub

------------------------------------------

Liebe Gruess
Richi