Alex Thurgood wrote:
Tortzdem nochmal ein großes Dankeschön für Deine Mitarbeit.
Nichts zu danken, es war mir ein Vergnügen. Ich bin aber davon
überzeugt, dass es sich daran mehrere Leute interessiert als Du es Dir
vielleicht vorstellst.
Alex Thurgood
Noch eine Stelle, wo dieser Code gut aufgehoben ist:
OpenOffice.org Code Snippets
http://www.oooforum.org/forum/viewforum.phtml?f=11
Und ein Verbesserungsvorschlag:
Dies braucht bei mir ~30 Sekunden für 10.000 Zeilen:
for i=lngListeStartZeile to lngListeEndZeile
oSheet.getCellByPosition(intListeEndSpalte+1,i).value=i
next i
Dies braucht ~1 Sekunde:
with
thiscomponent.sheets(0).getCellRangeByPosition(intListeEndSpalte+1,lngListeStartZeile,intListeEndSpalte+1,lngListeEndZeile)
.setArrayFormula("ROW()")
'Just in case auto-calc is off:
thisComponent.calculate
dA() = .getDataArray()
.setDataArray(dA())
end With
Nachteil: es erzwingt eine Neukalkulation, was unter Umständen nicht
erwünscht ist.
Dies ist mit ~2 Sekunden immer noch schnell:
with
thiscomponent.sheets(0).getCellRangeByPosition(intListeEndSpalte+1,lngListeStartZeile,intListeEndSpalte+1,lngListeEndZeile)
dA() = .getDataArray()
for i = lBound(dA()) to uBound(dA())
rA() = dA(i)
rA(0) = i
next
.setDataArray(dA())
End With
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
