Makroablaub wechselt nicht zwischen DAteien
Lars
ich habe ein Makro, dass aus einer Datei (Hier sammle/archiviere ich Rohdaten) heraus eine andere (.csv-Datei, hier sammle ich täglich neue von diesen Rohdaten ein) öffnet und bearbeitet.
Die Steuerung von "Text-in-Tabelle", "Gehe zum Ende" gelingt mir ganz gut, aber der Makro-Ablauf stoppt, wenn ich wieder zurück in die Ursprungsdatei wechseln will.
WIe komme ich wieder zurück?
Ich hoffe es gibt eine Lösung...
Vielen Dank im voraus
Lars
Mein Code sieht so aus:
DateiName = Application.GetOpenFilename("Textdateien,C:\Daten\Call*.csv")
Workbooks.Open Filename:=DateiName
Range("A1", Range("A1").End(xlDown)).Select
Text_In_Spalten 'externes Makro, das die csv-Einträge in Spalten bringt und weitere _
Anpassungen vornimmt
Range("A1", Range("A1").End(xlDown).Offset(0, 31)).Select
Selection.Copy
' ******* HIER STOPPT'S ******
Workbooks("CallDaten.xlsm").Activate
Sheets("Data").Range(Range("A1").End(xlDown).Offset(1, 0), Range("A1").End(xlDown).Offset(1, _
0)).Select
LetztZeile = Sheets("Data").Range(Range("A1").End(xlDown).Offset(1, 0), Range("A1").End( _
xlDown).Offset(1, 0)).Row
ActiveSheet.Paste
Anzeige