Schriftfarbwechsel mit Überprüfung

[clag]

Hallo Chrigi,

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

viel Spaß