Re: Schriftfarbwechsel mit Überprüfung
Verfasst: Fr, 18.10.2013 12:07
Hallo Chrigi,
versuch es mal hiermit
viel Spaß
versuch es mal hiermit
Code: Alles auswählen
Sub Main
oDoc=thisComponent
Sheet = oDoc.Sheets(0)
Cell0 = Sheet.getcellbyposition(0, 0)
Cell1 = Sheet.getcellbyposition(1, 0)
if Cell0.charcolor= RGB(0,0,0) then
Cell0.charcolor= RGB(255,255,255)
Cell1.charcolor= RGB(0,0,0)
else
Cell1.charcolor= RGB(255,255,255)
Cell0.charcolor= RGB(0,0,0)
end if
End Sub