OpenOffice.info

Hallo Stephan

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

Ja, hab ich gemacht.

Gruß Karo

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

Hallo Stephan
Stimmt du hast Recht, ich hatte die "Zählweise" aus [url=http://www.dannenhoefer.de/faqstarbasic/BedingteFormatierungInsert.html#BedingteFormatierungInsert]Michaels StarBasic-Seite[/url] ungeprüft übernommen.

Gruß Karo

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

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

[quote="Karolus"]Hallo
Hier wird gezählt ↓ du hast 3 Name/Value Paare !
[quote]Dim Bedingungen([color=#FF0000]3[/color]) As new com.sun.star.beans.PropertyValue[/quote]
[/quote]

Aber deswegen ist doch die Deklaration mit:

[code]Dim Bedingungen(2) As new com.sun.star.beans.PropertyValue[/code]

richtig, denn mit:

[code]Dim Bedingungen(3) As new com.sun.star.beans.PropertyValue[/code]

bleibt in Folge ansonsten eine PropertyValue leer.



Gruß
Stephan

Hallo Karo,

hat alles funktioniert, vielen Dank :D

Hallo
Hier wird gezählt ↓ du hast 3 Name/Value Paare !
[quote]Dim Bedingungen([color=#FF0000]3[/color]) As new com.sun.star.beans.PropertyValue[/quote]

Der Schlüssselname ist ↓↓↓↓↓↓↓↓↓↓↓↓ und nicht nur Formula
[quote]Bedingungen (1).Name = "Formula[color=#FF0000]1[/color]"[/quote]
In der Basic-ide gelten englische ↓ Funktionsnamen***
[quote]Bedingungen (1).Value = "[color=#FF0000]iseven(row())[/color]"[/quote]

aber sonst stimmt alles.

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

Gruß Karo

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

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]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[/code]

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.