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
addNew(oB())
oBFB.ConditionalFormatLocal = oBF
End Sub
-- Originalnachricht --
Von: "Volker Lenhardt"
An: "users@de.libreoffice.org"
Gesendet: 23.06.2020 09:01:12
Betreff: Re: [de-users] BasicMakro - CALC - bedingte Formatierung wird
nicht aktiviert
Hallo Hans-Wer
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
N A C H T R A G
Was mir eben noch aufgefallen ist:
Mit || oB(1).Value =
"INDIRECT(ADDRESS(ROW();COLUMN()))-INDIRECT(ADDRESS(ROW()-1;COLUMN())) <
0" || wird die Bedingung via Makro funktionierend eingetragen und so ||
INDIREKT(ADRESSE(ZEILE();SPALTE()))-INDIREKT(ADRESSE(ZEILE()-1;SPALTE()))
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" ||
Hallo Volker, Hans-Werner,
das funktioniert!
Kannst du erklären, warum das so ist? Versteht die Zuweisung in Basic
nur die englische Formulierung, die wahrscheinlich die eigentlich
gültige ist? Stößt der Dialog für die Bedingte Formatierung da die
"Übersetzung" an?
Das nur, um mein Wissen zu
Am 22.06.2020 um 20:17 schrieb OoOHWHOoO:
>
> oB(1).Value =
> "INDIREKT(ADRESSE(ZEILE();SPALTE()))-INDIREKT(ADRESSE(ZEILE()-1;SPALTE()))
> < 0"
Abgesehen davon, dass diese Formel fehlerhaft ist, nämlich für Zeile 1
("Zeile()" = 0, und davon 1 abgezogen, ergibt als Adresse -1), weiß ich
auch
Hallo, Hans-Werner,
die Formeln müssen englisch sein. Versuch's mal mit:
oB(1).Value =
"INDIRECT(ADDRESS(ROW();COLUMN()))-INDIRECT(ADDRESS(ROW()-1;COLUMN())) < 0"
Schöne Grüße
Volker
Am 22.06.20 um 20:17 schrieb OoOHWHOoO:
Hallo,
folgendes Problem:
Gegeben sei folgende kleine
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