Daten kopieren
07.08.2002 14:38:29
Michael
ich habe folgendes Problem:
Nacheinander sollen mehrere Dateien geöffnet werden, und jeweils ein bestimmter Bereich soll in eine, für alle gleiche, Datei kopiert werden. Wie bekomme ich es nun hin, das nachdem aus der ersten Datei die Daten rauskopiert worden sind, und die Datei geschlossen wurde, die Daten der zweiten Datei eine Zeile tiefer kopiert werden, so das keine Daten der vorherigen Datei überschrieben werden ?
Dim rngSource As Range, rngTarget As Range
Set rngSource = ActiveWorkbook.Worksheets(1).Range("G17:L17")
Set rngTarget = Workbooks("Datenzieldatei.xls").Worksheets(1).Range("A2")
rngSource.Copy rngTarget
Vielen Dank für Eure Hilfe