ich dachte ja es wäre ganz einfach, aber...
Ich versuche von einem Sheet in Ordner c:\Ordner1\Ordner2\Datei.xlsm vom dritten Sheet, Name: Text.CSV nach C:\Ordner1\Datei1.xlsm kopieren. Dabei startet die VBA Verarbeitung von Datei1 aus.
Das Problem scheint darin zu bestehen, daß sich die xlsm Datein in unterschiedlichen Ordnern befinden.
Ich habe etliche Versuche unternommen, habe bei dem Folgenden dann aber aufgegeben:
Workbooks.Open fileName:="C:\Ordner1\Ordner1\Datei.xlsm"
Sheets("Text").Select
x1 = Sheets("Text").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Range("A1:D" & x1).Copy
Workbooks("Datei1.xlsm").Sheets("Text").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0). _
PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Workbooks("Datei.xlsm").Close
x1 dient nur dazu, nur die tatsächlich vorhandenen Daten von Datei nach Datei1 zu kopieren.
Kann mir bitte jamand verraten, wie die Syntax aussehen muß; denn irgendwo ist ja der Wurm drin.
Vielen Dank im Voraus
Willi