Bedingte Formatierung

[thomas7]

Hallo,
habe ein Problem mit der bedingten Formatierung in einem Macro für Calc.
ooo2.4
Win XP
Ziel: jede zweite Zeile im Bereich A6:E1000 soll farbig hinterlegt werden.

Code: Alles auswählen

Sub Hintergrundfarbe
Dim objDatei as Object
Dim objBlatt as Object
Dim objBereich as Object
Dim objBedingung As Object
Dim Bedingungen(2) As new com.sun.star.beans.PropertyValue

objDatei = ThisComponent
objBlatt = objDatei.Sheets(6)
objBereich = objBlatt.getCellRangeByName ("A6:E1000")
Bedingungen (0).Name ="Operator"
Bedingungen (0).Value = com.sun.star.sheet.ConditionOperator.FORMULA
Bedingungen (1).Name = "Formula"
Bedingungen (1).Value = "ISTGERADE(ZEILE())"
Bedingungen (2).Name = "StyleName"
Bedingungen (2).Value = "Hintergrund grau"
objBedingung = objBereich.ConditionalFormat
objBedingung.addNew(Bedingungen())
objBereich.ConditionalFormat = objBedingung
end sub

Habe keine großen Kenntnisse mit oooBasic und versuche jetzt schon sehr lange den Fehler zu finden, leider vergeblich.
Gibt es darüber hinaus eine Möglichkeit, dass jede zweite Zeile farbig hinterlegt ist, wenn ich die Tabelle filtere?
Vielen Dank für Eure Antwort.

[Karolus]

Hallo
Hier wird gezählt ↓ du hast 3 Name/Value Paare !

Dim Bedingungen(3) As new com.sun.star.beans.PropertyValue

Der Schlüssselname ist ↓↓↓↓↓↓↓↓↓↓↓↓ und nicht nur Formula

Bedingungen (1).Name = "Formula1"

In der Basic-ide gelten englische ↓ Funktionsnamen***

Bedingungen (1).Value = "iseven(row())"

aber sonst stimmt alles.

****sofern du nicht mit ..formulalocal arbeiten kannst.

Gruß Karo

[thomas7]

Hallo Karo,

hat alles funktioniert, vielen Dank

[Stephan]

Hallo
Hier wird gezählt ↓ du hast 3 Name/Value Paare !

Dim Bedingungen(3) As new com.sun.star.beans.PropertyValue

Aber deswegen ist doch die Deklaration mit:

Code: Alles auswählen

Dim Bedingungen(2) As new com.sun.star.beans.PropertyValue

richtig, denn mit:

Code: Alles auswählen

Dim Bedingungen(3) As new com.sun.star.beans.PropertyValue

bleibt in Folge ansonsten eine PropertyValue leer.



Gruß
Stephan

[Karolus]

Hallo Stephan
Stimmt du hast Recht, ich hatte die "Zählweise" aus Michaels StarBasic-Seite ungeprüft übernommen.

Gruß Karo

[Stephan]

Hallo Karo,

wenn Du es nicht schon getan hast, schicke doch Michael bitte eine Fehlermeldung damit er das korrigieren kann.

ES ist nur eine KLeinigkeit, aber solche Dinge könnnen einen SChwanz an Problemen nach sich ziehen, wenn Nutzer das Falsche gelernt haben, glauben es sei richtig und wenn dann OOo mal die API berichtigt (das ebend keine 'Leerparameter' mehr toleriert werden) fallen viele alte, irrtümlich falsch geschriebene Makros 'auf die Nase'.


Gruß
Stephan

[Karolus]

Hallo Stephan

wenn Du es nicht schon getan hast, schicke doch Michael bitte eine Fehlermeldung damit er das korrigieren kann.

Ja, hab ich gemacht.

Gruß Karo