Ich benutze LibreOffice 3.5.4.2. Ich möchte die Hintergrundfarbe von Zellen basierend auf verschiedenen Bedingungen ändern. Als minimales Beispiel habe ich das folgende Makro / die folgende Funktion definiert:

function bgcolor()
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object   

Doc = ThisComponent
Sheet = Doc.Sheets(1)

Cell = Sheet.getCellByPosition(0, 0)
REM Cell.CellBackColor = RGB(50,60,70)
bgcolor=Cell.CellBackColor
end function

Ich führe die Funktion durch Eingabe aus=BGCOLOR() in eine Zelle. Die Zelle, in der diese Formel vorhanden ist, gibt den Farbwert der ersten Zelle zurück(0,0) oderA1 auf Blatt 1, wie erwartet.

Ich kann jedoch nicht die Funktion zum Ändern der Hintergrundfarbe der Zelle erhaltenA1. Die Hintergrundfarbe der Zelle stimmtnicht ändere wenn ich das entferneREM Zeile im obigen Beispiel biseinstellen die Hintergrundfarbe.

Wie kann ich die Hintergrundfarbe einer Zelle mit einer Funktion in LibreOffice festlegen?

(Ich habe über die Verwendung von "Stilen" gelesen, habe mich aber nicht weiter damit befasst, da ich viele verschiedene Hintergrundfarben festlegen musste und nicht viele verschiedene Stile erstellen wollte. Es ist möglich, die Hintergrundfarbe manuell zu ändern, ohne Stile zu verwenden, also habe ich dachte, es wäre möglich, das gleiche programmatisch zu tun.)