Datei per VBA öffnen

[matty1970]

Hallo zusammen, ich schon wieder
folgendes Problem.
ich bastele mir einen Dateinamen folgendermassen zusammen

Code:

=VERKETTEN("datei_"&TEIL(TEXT(A1;"TT.MM.JJJJ");7;4)&"_"&TEIL(TEXT(A1;"TT.MM.JJJJ");4;2)&"_"&TEIL(TEXT(A1;"TT.MM.JJJJ");1;2)&".csv")

dieses Ergebnis möchte ich aus einer anderen Datei heraus mit einem Makro öffnen. Der Name steht dabei immer in Mappe1.xlsm "E1"

Wie kann ich das bewerkstelligen? bis jetzt sieht mein Makro so aus.

Code:

Workbooks.Open "datei_2017_06_29.csv", Local:=True
   Range("A2").Select
   Range(Selection, Selection.End(xlToRight)).Select
   Range(Selection, Selection.End(xlDown)).Select
   Application.CutCopyMode = False
   Selection.Copy
   Windows("daten.xlsm").Activate
   Range("A1048540").Select
   ActiveWindow.SmallScroll Down:=12
   Range("A1048576").Select
   Selection.End(xlUp).Offset(1, 0).Select
   ActiveSheet.Paste
   Windows("datei_2017_06_29.csv").Activate
   Application.DisplayAlerts = False
   ActiveWindow.Close

Ist wahrscheinlich nicht der schönste Code aber er tut was er soll , Datei öffnen alles ab Zeile 2 Kopieren und unter die Letzte Zeile einfügen und dann Datei schliessen und Zwischenablage leeren, bzw zumindest die frage ob die Daten noch gehalten werden sollen unterdrücken.
Bekomme ich das Abfragen der Zelle und den Namen in das Makro einfügen per VBA hin?

Danke schonma und schönes Wochenende
LG Matty

[schauan]

Hallöchen,

das könnte so klappen, vorausgesetzt, die Mappe1 hast Du mit auf.

Workbooks.Open Workbooks("Mappe1.xlsm").Sheets("HastDuNichtGeschrieben").Range("E1").Value, Local:=True