|
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
|