OpenOffice.info

Hi Werner,

freut mich für Dich, dass Du eine Lösung gefunden hast.
Manchmal muss man einfach mal eine Nacht drüber schlafen.

Schöne Grüsse.

Jürgen

	oRange1 = Q_Sheet.getCellRangeByName(("B6:F" & Q_End_Row)).getDataArray() 'Daten einlesen
	oRange2 = Q_Sheet.getCellRangeByName(("I6:I" & Q_End_Row)).getDataArray() 'Zeitdauer
	oRange3 = Q_Sheet.getCellRangeByName(("K6:K" & Q_End_Row)).getDataArray() 'Tageskennzahl
	oName = oDoc.Sheets(i).getName() 'Sheetname ist gleich Personalnr.
	Z_Sheet = oDoc.Sheets(13) 'Zieltabelle ansprechen
	oCellCursor = Z_Sheet.createCursor()
	oCellCursor.GotoEndofUsedArea(True)
	Z_End_Row = oCellCursor.getRangeAddress.EndRow+2
	L_Row = Q_End_Row+Z_End_Row-6 'Berechnen der letzten zeile des neuen Arrays
	Z_Sheet.getCellRangeByName("B"& Z_End_Row & ":F"& L_Row).setDataArray(oRange1) ' Daten schreiben
	Z_Sheet.getCellRangeByName("G"& Z_End_Row & ":G"& L_Row).setDataArray(oRange2)
	Z_Sheet.getCellRangeByName("H"& Z_End_Row & ":H"& L_Row).setDataArray(oRange3)

Hallo Jürgen,

ich habe Deinen Vorschlag erweitert

[code]
oRange1 = Q_Sheet.getCellRangeByName(("B6:F" & Q_End_Row)).getDataArray() 'Daten einlesen
oRange2 = Q_Sheet.getCellRangeByName(("I6:I" & Q_End_Row)).getDataArray() 'Zeitdauer
oRange3 = Q_Sheet.getCellRangeByName(("K6:K" & Q_End_Row)).getDataArray() 'Tageskennzahl
oName = oDoc.Sheets(i).getName() 'Sheetname ist gleich Personalnr.
Z_Sheet = oDoc.Sheets(13) 'Zieltabelle ansprechen
oCellCursor = Z_Sheet.createCursor()
oCellCursor.GotoEndofUsedArea(True)
Z_End_Row = oCellCursor.getRangeAddress.EndRow+2
L_Row = Q_End_Row+Z_End_Row-6 'Berechnen der letzten zeile des neuen Arrays
Z_Sheet.getCellRangeByName("B"& Z_End_Row & ":F"& L_Row).setDataArray(oRange1) ' Daten schreiben
Z_Sheet.getCellRangeByName("G"& Z_End_Row & ":G"& L_Row).setDataArray(oRange2)
Z_Sheet.getCellRangeByName("H"& Z_End_Row & ":H"& L_Row).setDataArray(oRange3)
[/code]

Somit brauche ich die Arrays nicht zu addieren bzw. zu binden.
Manchmal denkt man einfach zu kompliziert.

Danke für Deine Hilfe
Gruß Werner

Hallo Jürgen,

ja, ich weiß, das ist die Lösung der Praktiker, so würde ich das auch machen.
Aber wie bringe ich das meinem Chef bei? Der erwartet eine Seite, auf die er die Lösung sieht.
Von Löschen und eventuell kopieren und summieren mit Calc bzw. Excel hat der keine Ahnung und will es wahrscheinlich auch nicht.
Somit peile ich dann noch immer eine Makrolösung an.

mit freundlichem Gruß
Werner

oRange1 = Q_Sheet.getCellRangeByName("A2:I" & Q_End_Row ).getDataArray()

Z_Sheet.getCellRangeByName("A" & Z_End_Row & ":I" & L_Row  ).setDataArray(oRange1)

Nabend Werner,

kopiere doch den gesamten Zellbereich
[code]oRange1 = Q_Sheet.getCellRangeByName("A2:I" & Q_End_Row ).getDataArray()[/code]
[code]Z_Sheet.getCellRangeByName("A" & Z_End_Row & ":I" & L_Row ).setDataArray(oRange1)[/code]
und [url=http://www.dannenhoefer.de/faqstarbasic/zeileneinfuegen.html#zeileneinfuegen]lösche[/url] dann am Schluss in der Zieltabelle die überflüssigen Spalten. :wink:

Viel Erfolg.

Jürgen

Hallo zusammen,

ist es möglich, zwei Arrays zu einem Array zusammenzubinden?

z.B.

oRange1 = Q_Sheet.getCellRangeByName("A2:E" & Q_End_Row ).getDataArray()
oRange2 = Q_Sheet.getCellRangeByName("I2:I" & Q_End_Row ).getDataArray()
oRange3 = oRange1+ oRange2 ? so geht es nicht, wie dann?

mit freundlichem Gruß
Werner