Hallo,
folgendes Problem:
Gegeben sei folgende kleine CALC-Tabelle
|1|4|1|4|
|2|3|2|3|
|3|2|3|2|
|4|1|4|1|
und dieser BasicMakro-Code:
Sub BedingteFormatierung
Dim oBF as Object ' obj Bedingung Format (Conditional Format)
Dim oBFB as Object ' obj Bedingung Format Bereich
Dim oB(2) as New com.sun.star.beans.PropertyValue ' Bedingung
(Condition)
oBFB = ThisComponent.Sheets(0).getCellRangeByPosition(0,0,3,3)
oBF = oBFB.ConditionalFormat
oB(0).Name = "Operator"
oB(0).Value = com.sun.star.sheet.ConditionOperator.FORMULA
oB(1).Name = "Formula1"
oB(1).Value =
"INDIREKT(ADRESSE(ZEILE();SPALTE()))-INDIREKT(ADRESSE(ZEILE()-1;SPALTE()))
< 0"
oB(2).Name = "StyleName"
oB(2).Value = "Bad"
oBF.addNew(oB())
oBFB.ConditionalFormat = oBF
End Sub
Nach Ausführung des Makros sind der "Bereich" ( oBFB ), die
"Bedingung" ( oB(1).Value ) und die "Vorlage" ( oB(2).Value ) richtig
eingetragen, aber die so eingetragene "bedingte Formatierung" ist
nicht aktiv, d.h., keine Einfärbung der betroffenen Zellen gemäß
"Vorlage".
Nach manuell
[Format] > [Bedingte Formatierung] > [Verwalten...] > [Bearbeiten] >
[OK] > [OK]
ist die "bedingte Formatierung" aktiv und die entsprechenden Zellen
sind sofort eingefärbt.
Der BasicMakro-Code ist sowohl bei Pitonyak/Lenhardt als auch
Dannenhöfer so angegeben wie oben. Mir ist jedenfalls kein
Unterschied aufgefallen ...
Habe ich da noch irgendeinen Fehler in meinem BasicMakro-Code ?
Fehlt da noch was, um die "bedingte Formatierung" zu aktivieren oder
liegt da ein BUG vor ?
Mir fällt im Moment nichts weiter ein,
bin für jeden Hinweis dankbar
Grüße
Hans-Werner :-))