BasicMakro - CALC - bedingte Formatierung wird nicht aktiviert

de-users
#1

Hallo Volker,

ganz herzlichen Dank für den Hinweis.

Mit || oB(1).Value = "INDIRECT(ADDRESS(ROW();COLUMN()))-INDIRECT(ADDRESS(ROW()-1;COLUMN())) < 0" || funktioniert es, wie es sollte.

Mit || oB(1).Value = "INDIREKT(ADRESSE(ZEILE();SPALTE()))-INDIREKT(ADRESSE(ZEILE()-1;SPALTE())) < 0" || passiert folgendes:

Nach Ausführung des Makros erscheint die Formel erst mal so || indirekt(adresse(zeile();spalte()))-indirekt(adresse(zeile()-1;spalte())) < 0 || unter [Format][Bedingte Formatierung].

Nach manuell [Format] > [Bedingte Formatierung] > [Verwalten...] > [Bearbeiten] > [OK] > [OK] ist sie dann so || INDIREKT(ADRESSE(ZEILE();SPALTE()))-INDIREKT(ADRESSE(ZEILE()-1;SPALTE())) < 0 || unter [Format][Bedingte Formatierung] eingetragen und funktioniert.

In einem Beispiel von http://www.dannenhoefer.de/faqstarbasic/BedingteFormatierungInsert.html#BedingteFormatierungInsert ist die Formel auch in englischer Sprache eingetragen || oCondition(1).Value = "SUM(A1:A10) > 100" ||, was mir aber erst mal nicht wirklich aufgefallen ist. Bei Pitonyak/Lenhardt gibt es kein Beispiel mit "Formel".

Aber weder bei Pitonyak/Lenhardt noch bei Dannenhöfer wird explizit darauf hingewiesen, dass in einer Formel englische Ausdrücke zu benutzen sind. Andere WEB-Quellen hatte ich nicht recherchiert.

Ob BUG oder nicht, ist für mich als einen "Nicht-LO-Software-Entwickler" nicht wirklich entscheidbar, aber auffällig ist schon, dass die (deutsche) Formel nach manuell [Format] > [Bedingte Formatierung] > [Verwalten...] > [Bearbeiten] > [OK] > [OK] in Großbuchstaben umgewandelt wird und dann auch in deutscher Version funktioniert.

Hinweise für Wolfgang:

[1] Die Formel ist nicht fehlerhaft, sondern zur besseren Nachvollziehbarkeit aus dem "Zusammenhang gerissen" eines 1347 Zeilen langen Makros.
[2] Normalerweise setze ich "bedingte Formatierungen" auch manuell, es kommt immer auf den Kontext der gesamten Anwendung an.

Gruß
Hans-Werner

Hier noch der Vollständigkeit halber die ursprüngliche Problembeschreibung:

[1] CALC-Tabelle

1|4|1|4|
2|3|2|3|
3|2|3|2|
4|1|4|1|

[2] BasicMakro

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" ' ERROR-Variante

' oB(1).Value = "INDIRECT(ADDRESS(ROW();COLUMN()))-INDIRECT(ADDRESS(ROW()-1;COLUMN())) < 0" ' OKAY-Variante

oB(2).Name = "StyleName"
oB(2).Value = "Bad"

oBF.addNew(oB())
oBFB.ConditionalFormat = oBF

End Sub

#2

Hallo Hans-Werner,

entschuldige, dass ich gestern abend nicht auch die Alternative erwähnt habe, aber man braucht auch seinen Schlaf. Der Hinweis darauf, dass für Calc-Formeln in Basic-Makros (Zelleigenschaft Formula) im Prinzip die englischen Bezeichner notwendig sind, ist in OOME nur am Rande erwähnt (S. 458). Aber man kann auch die Zelleigenschaft FormulaLocal nutzen, in diesem Fall ConditionalFormatLocal (s. S. 467). Damit sollten die deutschen Bezeichner funktionieren. Ich bin gerade nicht am Desktop und kann es nicht testen. Probiere es einfach mal.

Was die Groß- und Kleinschreibung betrifft, so kann ich mir vorstellen, dass es nur so funktionieren kann, dass der Code intern vor der Ausführung entweder in Groß- oder in Kleinschreibung umgesetzt wird. Das mag für Basic anders sein als in Calc. Und dann kommt noch die Übersetzung in die lokale Sprache dazu. Ob man das im vorliegenden Fall als Bug bezeichnen soll? Ich meine, wenn man die entsprechende Zelleigenschaft korrekt anwendet, ist alles gut.

Schöne Grüße
Volker

#3

Hallo Volker,

[1] Du musst Dich wirklich nicht entschuldigen. Ich habe Dir zu danken, dass Du nach einem langen Arbeitstag noch die Zeit gefunden hast, mir diesen hilfreichen Hinweis zu geben !!!

[2] Dein heutiger Hinweis mit "ConditionalFormatLocal" hat das Problem gelöst (s.u.). Ich hätte es eigentlich ahnen können, denn im Kontext der Zuweisung einer Formel an eine Zelle ( beispielsweise in meinem Makro: oZ_DL.FormulaLocal = TB_DL_Pf_Dtf ) war mir das "Local" schon "über den Weg gelaufen", hatte es aber für den anderen Kontext ( bedingte Formatierung ) "nicht mehr im Hinterkopf". Dummerweise war es auch noch so, dass beim Pitonyak bzw. Deiner Übersetzung davon, unter "bedingte Formatierung" (S.474) kein Beispiel für eine Formel angegeben ist. So hatte ich da nicht weiter gesucht, sondern beim Dannenhoefer ( http://www.dannenhoefer.de/faqstarbasic/BedingteFormatierungInsert.html#BedingteFormatierungInsert ) nachgeschaut - meine üblich Strategie: Pitonyak/Lenhardt und/oder Dannenhoefer - meistens finde ich dann eine Lösung. Dummerweise hat der Dannenhoefer in seinem Beispiel einen englischsprachigen Formelausdruck genutzt und so war's da auch nichts mit einem "Local"-Hinweis.

[3] Ich freue mich, mal mit dem Übersetzer von Pitonyaks "Makro-Standardwerk" Kontakt zu haben: EIN MEGA-GROSSES DANKESCHÖN FÜR DIESE TOLLE ÜBERSETZUNG !!!

[4] Ich arbeite zurzeit mit der Version 20.02.18. Wie ich eben auf https://www.pitonyak.org/oo.php gesehen habe, arbeitet Pitonyak mittlerweile an der 4.0:
"[...] Started the fourth edition. I am working my way through it. [...]"

[5] Vielleicht könnte man ja mal irgendwann "bedingte Formatierung" (S.474) um ein Beispiel mit einer Formel ergänzen.

Nochmals ganz herzlichen Dank,
sowohl für Deine Mail-Hinweise als auch für die "Pitonyak-Übersetzung",

viele Grüße (aus dem sonnigen Wittlich)
Hans-Werner :-))

[1] CALC-Tabelle

1|4|1|4|
2|3|2|3|
3|2|3|2|
4|1|4|1|

[2] BasicMakro

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.ConditionalFormatLocal

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.ConditionalFormatLocal = oBF

End Sub

------ Originalnachricht ------

#4

Danke für die Blumen. So ein umfangreiches Werk zu übersetzen und zu bearbeiten war schon eine Herausforderung. Ich habe es auch ein paar Jahre gepflegt und habe auch schon einige Erweiterungen und Aktualisierungen ins Auge gefasst, natürlich auch Andrews Update. Aber den inneren Schweinehund zu überwinden, um alles von A bis Z zu überarbeiten, braucht einen Schubs, der kräftiger sein muss als die bisherigen.

In der Mailingliste melde ich mich nur selten, denn für die praktischen Fragen sind viel kompetentere Ratgeber als ich am Ball.

OT: Das Flüsschen Lieser kenne ich von dem Winzer, von dem wir unseren Wein beziehen, Steffen-Prüm aus Maring-Noviand, nicht so weit entfernt von Wittlich.

Schöne Grüße aus Buer in Westfalen
Volker