OpenOffice.info

z.setDataArray() = afeld

setDataArray( [in] sequence< sequence< any > >  aArray );

z.setDataArray(afeld)

z.setDataArray(afeld())

[quote]Immer die Exception: Arguments len differ[/quote]

Naja, der Code ist falsch.
Das ist doch im Konkreten auc einfach nachzuvollziehen wenn Du Deine Code-Zeile:

[code]z.setDataArray() = afeld[/code]

mit der Methode .setDataArray() in der IDL-REferenz vergleichst:

[code]setDataArray( [in] sequence< sequence< any > > aArray );[/code]

Ein, zumindest kurzes, Reinschauen in die IDL-Referenz lohnt sich in solchen Fällen doch eigentlich immer.

siehe:
http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/XCellRangeData.html#setDataArray

.SetDataArray() ist einfach keine Eigenschaft, der man einen Wert (hier also afeld) zuweisen kann, sondern eine Methode, von außen schon erkenntlich an .set

Die richtige Zeile muß lauten:

[code]z.setDataArray(afeld)[/code]

oder:

[code]z.setDataArray(afeld())[/code]



Gruß
Stephan

z = oSheet_Z.getCellRangeByName("A" & oRow & ":E" & oRow)

[quote="Christian1234"]könntest du mir sagen was da falsch is[/quote]

Aber gerne doch.

In diesem Fall kopierst Du einen Zeilenbereich. Dann sieht das wie folgt aus:

[code]z = oSheet_Z.getCellRangeByName("A" & oRow & ":E" & oRow)[/code]

[quote="Christian1234"]dazu makiert er noch folgendes als fehler.....

Code: Alles auswählen
z.setdataArray(x)[/quote]
Ich hatte schon geahnt das dieses kommt. 8)

Dann stimmt der ausgelesene und der zu beschreibende Bereich in der Grösse nicht überein.
Die Bereiche müssen immer die gleiche Anzahl von Zeilen und Spalten haben!
[quote="turtle47"] x = oSheet_Q.getCellRangeByName("C5:C11").getdataArray <-- Sind 7 Zellen
z = oSheet_Z.getCellRangeByName("A" & oRow & ":A" & oRow [color=#FF0000]+6[/color]) <-- Ist die gefundene Zelle + 6 Zellen = 7 Zellen[/quote]

Ok :?:

[quote="Christian1234"]ich wollte mich vergewissern ob ich das richtig verstanden habe[/quote]

Alles richtig verstanden.

Ergänzung: In "Tabelle2" Zelle "A1" muss eine Überschrift oder sonst was schon stehen!

Option Explicit
Sub CopyRange
Dim oDoc as Object, oSheet_Q as Object, oSheet_Z as Object, z as Object, c as Object
Dim getFirstEmptyRowInColumn as Object
Dim oRow as integer
Dim x()
	oDoc = thisComponent
	oSheet_Q = oDoc.Sheets().getByName("Tabelle1")
	oSheet_Z = oDoc.Sheets().getByName("Tabelle2")
	x = oSheet_Q.getCellRangeByName("C5:C11").getdataArray  
	c = oSheet_Z.getCellRangeByName("A1:A5000").queryEmptyCells
	getFirstEmptyRowInColumn = Split(c.RowDescriptions(0)," ")   
	oRow = getFirstEmptyRowInColumn(1)
	z = oSheet_Z.getCellRangeByName("A" & oRow & ":A" & oRow +6)
	z.setdataArray(x)
End Sub

Hi,

[quote="Christian1432"]das die eingegebenen Kriterien in eine andere Tabelle ans Spaltenende einfügt.[/quote]

Da Du uns leider im Unklaren lässt von welcher Stelle aus und welcher Bereich kopiert werden soll, und ab einem gewissen Alter die
hellseherischen Fähigkeiten im Quadrat abnehmen konnte man hier nur wieder raten.

[code]Option Explicit
Sub CopyRange
Dim oDoc as Object, oSheet_Q as Object, oSheet_Z as Object, z as Object, c as Object
Dim getFirstEmptyRowInColumn as Object
Dim oRow as integer
Dim x()
oDoc = thisComponent
oSheet_Q = oDoc.Sheets().getByName("Tabelle1")
oSheet_Z = oDoc.Sheets().getByName("Tabelle2")
x = oSheet_Q.getCellRangeByName("C5:C11").getdataArray
c = oSheet_Z.getCellRangeByName("A1:A5000").queryEmptyCells
getFirstEmptyRowInColumn = Split(c.RowDescriptions(0)," ")
oRow = getFirstEmptyRowInColumn(1)
z = oSheet_Z.getCellRangeByName("A" & oRow & ":A" & oRow +6)
z.setdataArray(x)
End Sub[/code]

Viel Erfolg.

Jürgen