29.07.2017, 14:07
Hallo zusammen, ich schon wieder 
folgendes Problem.
ich bastele mir einen Dateinamen folgendermassen zusammen
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.
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
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.CloseIst 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