OpenOffice.info

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

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

Hallo
Kürzer gehts :
[code]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[/code]
obs deshalb schneller läuft ?

Gruß Karo