Datei kopieren
19.07.2021 20:40:02
Robert
Brauche mal wieder Eure Hilfe. Ich habe einen Code bei welchen ich aus einer Zieldatei die Quelldatei öffne und einen Bereich kopiere. Ich würde jetzt gern flexibel sein und auf der Seite wo ich die Daten hin kopieren möchte, per Handeingabe den Dateinamen ändern, entsprechend der zu kopieren Datei. (zB. Werner.xlsm und dann August.xlsm)
Wie müsste ich das schreiben, habe sowas ähnliches schon gemacht mit Datum usw.. Aber hier will es nicht klappen In Z1 soll der jeweils geltende Dateiname stehen und übernommen werden. Hier der jetzige Code
Sub Unit()
Dim wbQuelle As Workbook
Dim strDatei
strDatei = Range("Z1").Text
Set wbQuelle = Workbooks.Open("N:\Datencenter\strDatei")
wbQuelle.Worksheets("TabelleOut").Range("A1:E178").Copy
ThisWorkbook.Worksheets("TabelleIn").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wbQuelle.Close False
Set wbQuelle = Nothing
End Sub
Danke im voraus.
LG Robert