Schriftfarbwechsel mit Überprüfung

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Schriftfarbwechsel mit Überprüfung

Re: Schriftfarbwechsel mit Überprüfung

von clag » Fr, 18.10.2013 12:07

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ß

Nach oben