Seite 1 von 1
Bedingte Formatierung
Verfasst: Fr, 05.11.2010 22:27
von 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.
Re: Bedingte Formatierung
Verfasst: Fr, 05.11.2010 23:17
von 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
Re: Bedingte Formatierung
Verfasst: Sa, 06.11.2010 08:04
von thomas7
Hallo Karo,
hat alles funktioniert, vielen Dank
Re: Bedingte Formatierung
Verfasst: Sa, 06.11.2010 10:07
von Stephan
Karolus hat geschrieben: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
Re: Bedingte Formatierung
Verfasst: Sa, 06.11.2010 10:48
von Karolus
Hallo Stephan
Stimmt du hast Recht, ich hatte die "Zählweise" aus
Michaels StarBasic-Seite ungeprüft übernommen.
Gruß Karo
Re: Bedingte Formatierung
Verfasst: Sa, 06.11.2010 12:57
von 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
Re: Bedingte Formatierung
Verfasst: Sa, 06.11.2010 17:57
von 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