OpenOffice.info

Code: Alles auswählen

sub Farbtabelle_Neu
	odoc = thisComponent
	otab = odoc.sheets(0) '1.Tabelle
	z = 0
	for i = 0 to 19 'Schleife Zeile 1 bis 20 entsprechend der Anzahl Zeilen anpassen
	ozell1 =otab.getcellbyposition(0,z) 'A bis z
	myColor1=ozell1.value
	ozell2 =otab.getcellbyposition(1,z) 'B bis z
	myColor2=ozell2.value
	ozell3 =otab.getcellbyposition(2,z) 'C bis z
	myColor3=ozell3.value
	ozell4 =otab.getcellbyposition(3,z) 'D bis z
	ozell4.cellbackcolor = RGB (myColor1,myColor2,myColor3)
	z = z +1
	next i
end sub

Code: Alles auswählen

 sub Farbtabelle
odoc = thisComponent
otab = odoc.sheets(0) '1.Tabelle
ozell =otab.getcellbyposition(0,0) 'A1
farbwerte = split(ozell.string,"/")
ozell.cellbackcolor = RGB(farbwerte(0),farbwerte(1),farbwerte(2))
end sub