OpenOffice.info

Verfasst: **Mo, 06.07.2009 11:52**

Hallo
Kürzer gehts :

Sub schleifen_beispiel
osheet = thiscomponent.sheets().getbyname("Tabelle1")

for iSuper = 2 to 37 step 7
	for isub = 0 to 4
	if osheet.getcellbyposition(50,isuper+isub).value = 0 then
		osheet.getcellrangebyposition(40,isuper+isub,43,isuper+isub).clearcontents(com.sun.star.sheet.CellFlags.VALUE)
		osheet.getcellbyposition(49,isuper+isub).clearcontents(com.sun.star.sheet.CellFlags.VALUE)
	end if
	next isub
next isuper
end sub

obs deshalb schneller läuft ?

Gruß Karo

Verfasst: **Mi, 08.07.2009 07:49**

Moin,

wenn ich davon ausgehe, dass in diesem Beispiel das Löschen der Werte vom Inhalt abhängig ist (If ...Value=0 then...),
dann müsste doch auch folgendes funktionieren

...
osheet.getcellrangebyname("AY3:AR42").clearcontents(com.sun.star.sheet.CellFlags.STRING)

denn damit werden alle Einträge ohne numerischen Wert entfernt.

Gruß, Friedhelm

OpenOffice.info

code ist viel zu lang

Re: code ist viel zu lang

Re: code ist viel zu lang