[gelöst] Arrays zusammenfassen?

[wega]

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

[turtle47]

Nabend Werner,

kopiere doch den gesamten Zellbereich

Code: Alles auswählen

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

Code: Alles auswählen

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

und lösche dann am Schluss in der Zieltabelle die überflüssigen Spalten.

Viel Erfolg.

Jürgen

[wega]

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

[wega]

Hallo Jürgen,

ich habe Deinen Vorschlag erweitert

Code: Alles auswählen

	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)

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

Danke für Deine Hilfe
Gruß Werner

[turtle47]

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