Seite 1 von 1
Re: Elegantere Lösung?
Verfasst: Di, 19.04.2011 20:49
von F3K Total
Hallo,
habe mal unter
http://api.openoffice.org/docs/common/r ... Flags.html nachgesehen:
Code: Alles auswählen
oQuelleRange1.clearContents(com.sun.star.sheet.CellFlags.VALUE+com.sun.star.sheet.CellFlags.STRING+com.sun.star.sheet.CellFlags.FORMULA)
kanst Du durch
etwas eleganter ersetzen. Einfach die gewünschten Konstanten addieren ...
Value=1
String=4
Formula=16
1+4+16=21 ... und einsetzen.
Gruß R
Re: Elegantere Lösung?
Verfasst: Di, 19.04.2011 20:49
von turtle47
Hallo Uwe,
ob das Folgende unbedingt viel kürzer ist?
Code: Alles auswählen
....
aQuelle = Array(40,41)
aZiel = Array(15,17)
for i = 0 to uBound(aQuelle)
oQuelleRange1=oSheet.getCellRangeByPosition(aQuelle(i),0,aQuelle(i),letzte_Zeile)
aDat = oQuelleRange1.getDataArray()
oQuelleRange1.clearContents(com.sun.star.sheet.CellFlags.VALUE+com.sun.star.sheet.CellFlags.STRING+com.sun.star.sheet.CellFlags.FORMULA)
oQuelleRange2 = oSheet.getCellRangeByPosition(aZiel(i),0,aZiel(i),letzte_Zeile)
oQuelleRange2.setDataArray(aDat)
next i
....
Jürgen
Re: Elegantere Lösung?
Verfasst: Di, 19.04.2011 20:55
von F3K Total
Na dann wird doch mit
Code: Alles auswählen
....
aQuelle = Array(40,41)
aZiel = Array(15,17)
for i = 0 to uBound(aQuelle)
oQuelleRange1=oSheet.getCellRangeByPosition(aQuelle(i),0,aQuelle(i),letzte_Zeile)
aDat = oQuelleRange1.getDataArray()
oQuelleRange1.clearContents(21)
oQuelleRange2 = oSheet.getCellRangeByPosition(aZiel(i),0,aZiel(i),letzte_Zeile)
oQuelleRange2.setDataArray(aDat)
next i
....
ein Schuh draus
Gruß R