Seite 1 von 1
[gelöst] Arrays zusammenfassen?
Verfasst: So, 22.03.2009 18:46
von 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
Re: Arrays zusammenfassen?
Verfasst: So, 22.03.2009 19:33
von 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
Re: Arrays zusammenfassen?
Verfasst: So, 22.03.2009 20:08
von 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
Re: Arrays zusammenfassen?
Verfasst: Mo, 23.03.2009 18:28
von 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
Re: [gelöst] Arrays zusammenfassen?
Verfasst: Mo, 23.03.2009 20:13
von 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