OpenOffice.info

Code: Alles auswählen

odoc = thisComponent
osheet = odoc.sheets().getbyname("Tabelle1") 'Tabellennamen anpassen
x = 5 ' erste Zeile eintragen
y = 183 ' letzte Zeile eintragen

for i = x-1 to y-1 'Zeilenindex beginnt bei 0
   
if osheet.getcellbyposition(7,i).value = LA then
      tempvar = osheet.getcellbyposition(30,i).formulalocal
      osheet.getcellbyposition(30,i).formulalocal = osheet.getcellbyposition(31,i).formulalocal
      osheet.getcellbyposition(31,i).formulalocal = tempvar
end if

next i 

Code: Alles auswählen

sub if_A_gleich_0_change_B_C
odoc =thisComponent
osheet = odoc.sheets().getbyname("Tabelle1") 'Tabellennamen anpassen
x = ??? ' erste Zeile eintragen
y = ??? ' letzte Zeile eintragen
for i = x-1 to y-1 'Zeilenindex beginnt bei 0
	if osheet.getcellbyposition(0,i).value = 0 then
		tempvar = osheet.getcellbyposition(1,i).formulalocal
		osheet.getcellbyposition(1,i).formulalocal = osheet.getcellbyposition(2,i).formulalocal
		osheet.getcellbyposition(2,i).formulalocal = tempvar
	end if 
next i	
end sub

Code: Alles auswählen

int dummy;

for(zeile = 1; zeile < anzahl; zeile++) {

if (A == 0) then {
    // Zelleninhalte austauschen
    dummy = C;
    C = B;
    B = dummy;
} else {
   exit();
}

}