Hallo zusammen,

habe folgendes Problem wo ich leider nicht weiter komme. 

Habe eine VBA wo ich Daten aus einer anderen Excel-Datei reinladen kann.

In der VBA ist momentan aber ein fester  Dateipfad mit eingeschrieben. (siehe unten Rot Geschrieben)

Der Dateipfad soll aber Variabel sein - d.h von aktueller Arbeitsmappe,Blatte 1, Zelle F3 - übernommen werden.

Ziel ist das jeder Mitarbeiter dann eigenständig nur seinen Pfad in der Excel (unter Zelle F3) eingibt und von seiner Datei 

dann die dementsprechenden Daten in der aktuellen Arbeitesmappe mit allen zusammenführt werden.

Kann mir hier bitte jemand helfen - Danke

HIer meine Stand momentan:

Sub Geschlossene_Arbeitsmappe()

Dim sPfad As String
Dim wbQuelle As Workbook

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

'Dateipfad der Quelldatei
sPfad = "L:\KUH22313\Auftrag\Material_und_Nachkalkulation.xlsx"

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

    'Arbeitsmappe öffnen
    Set wbQuelle = Workbooks.Open(sPfad)
    
    'Daten kopieren und einfügen
    Dim LetzteZeile As Long
    LetzteZeile = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    wbQuelle.Worksheets(2).Range("=O46:AI46").Copy ThisWorkbook.Worksheets(1).Range("A" & LetzteZeile + 1)
    
    
    'Arbeitsmappe schließen
    wbQuelle.Close SaveChanges:=False
End If

'ScrennUpdating und PopUps aktivieren
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub