Bitte um Hilfe: Komme leider nicht weiter beimSchreiben des Arrays auf die nächste Tabelle.
Code: Alles auswählen
Sub test_array
dim quelle(n)
oTest=thiscomponent
halt=0
n=0
i=0
do
if oTest.Sheets(0).getCellByPosition(3,i).string = "x" then 'Check ob Spalte D markiert ist
redim preserve quelle(n)
quelle(n)=oTest.Sheets(0).getcellrangebyposition(0,i,2,i).getDataArray()
n=n+1
i=i+1
else
i=i+1
end if
if oTest.Sheets(0).getCellByposition(0,i).string="" then halt = 1
loop while halt=0
dim ziel(n-1)
ziel(n-1)=oTest.Sheets(1).getCellRangeByPosition(0,0,2,i-1)
ziel.SetDataArray(quelle(n-1)) 'Hier funkt leider nicht. Fehlermeldung: Object variable nicht belegt
End Sub
Vielen herzlichen Dank für Euere Hilfe.
Gruss