Zeilen innerhalb von 2 csv-Dateien verschieben.

Hallo Zusammen,

Mein Vorhaben:
Ich möchte bestimmte Zeilen von einer .csv Datei in eine andere verschieben.
Es gibt 2 Dateien mit den Namen "ergebnis.csv" und "rohdaten.csv". Die Zeilen 8 bis 16 in "rohdaten.csv" möchte ich in die "ergebnis.csv" ab Spalte B verschieben, Da Spalte A Daten enthält.
Meine Vorgehensweise:
Ich lasse von Autoit "rohdaten.csv" auslesen und in "ergebnis.csv" eintragen. Jedoch scheitere ich daran, dass die Daten nicht übertragen werden. Vielleicht habe ich noch nicht verstanden, wie man Arrays handhaben müsste.

Wie muss ich vorgehen, um die Zeilen 8 bis 16 in "rohdaten.csv" nach "ergebnis.csv" ab Spalte B, Zeile 1 und jeweils drunter zu verschieben?

Ich wäre für eure Hilfe sehr dankbar.
Folgend mein Versuch:

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.10.2
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

; ergebnisse zum kopieren bereitstellen
#include <Excel.au3>
#include <MsgBoxConstants.au3>

Local $sFilePath1 = @ScriptDir & "\rohdaten.csv" ;This file should already exist
Local $oExcel = _ExcelBookOpen($sFilePath1)
Local $aArray = $oExcel

If @error = 1 Then
MsgBox($MB_SYSTEMMODAL, "Error!", "Unable to Create the Excel Object")
Exit
ElseIf @error = 2 Then
MsgBox($MB_SYSTEMMODAL, "Error!", "File does not exist - Shame on you!")
Exit
EndIf
_ExcelSheetActivate($oExcel, "rohdaten") ; Richtigen Reiter aktivieren

;Von Ergebnisse Daten von Excel auslesen Beginnen bei Zeile 8, Spalte A, Zelle 1
_ExcelReadArray ( $oExcel, 8, 1, 1 )

For $i = 8 To 16 ; Schleife um von Zeile 8 bis 18 auszulesen
_ExcelReadArray($oExcel, $i, $i, 1)
Next

;Daten jetzt übertragen
Local $sFilePath1 = @ScriptDir & "\ergebnis.csv" ;This file should already exist
Local $oExcel = _ExcelBookOpen($sFilePath1)

If @error = 1 Then
MsgBox($MB_SYSTEMMODAL, "Error!", "Unable to Create the Excel Object")
Exit
ElseIf @error = 2 Then
MsgBox($MB_SYSTEMMODAL, "Error!", "File does not exist - Shame on you!")
Exit
EndIf
_ExcelSheetActivate($oExcel, "ergebnis") ; Richtigen Reiter aktivieren
_ExcelWriteArray( $oExcel, 1, 2, $aArray) ; Ergebnisse neben Zelle B1 usw. eintragen

Vielen Dank für eure Hilfe.
Ich benutze jetzt die Beta-Version. Mit folgendem Code werden die Daten richtig übertragen:

Mir ist im nachhinein aufgefallen, dass ich die Daten, die bereits richtig übertragen werden, gelöscht werden, wenn ich diesen Skript erneut ausführe.
Ich möchte nun in der Datei "ergebnis.csv" in Spalte B nach der nächst leeren Zelle suchen und dort die zu verschiebende Zellen von "rohdaten.csv" hineinkopieren, bevor sie gelöscht werden.
Autoit bietet hierzu die Funktion _Excel_Rangefind
Mit der Hilfe kam ich leider nicht zurecht. Wie gebe ich an, dass die leere Zellen gesucht werden sollen?
Mein Versuch scheiterte leider:

Local $aResult = _Excel_RangeFind($oWorkbook1, "", "B", $xlFormulas, $xlWhole)

Ich meine den letzten benutzten Bereich. (Beispiel: Letzte Zeile mit Inhalt = 51, daher nach Zeile 52 schreiben)

Ich finde leider kein hilfreiches Beispiel. Wie wende ich die Funktion $oWorksheet.Usedrange.Rows.Count an?
So bin ich vorgegangen:
Ich deklariere eine lokale Variable $iLastRow. Diese hat die Funktion UsedRange.Rows.Count.
Dann frage ich mit einer Schleife ab, ob $iLastRow leer ( "" ) ist, wenn ja, dann soll _Excel_RangeCopyPaste angewendet werden.

; *****************************************************************************
; Copy cells from another workbook. Pass the source range as object.
; *****************************************************************************
Local $cRange = $oWorkbook2.ActiveSheet.Range("A1:L8")
Local $iLastRow = $oExcel.Activesheet.UsedRange.Rows.Count
If $iLastRow.Value = "" Then
_Excel_RangeCopyPaste($oWorkbook1.Worksheets(1), $iLastRow)
EndIf
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeCopy Example 1", "Error copying cells." & @CRLF & "@error = " & @error & ", @extended = " & @extended)