OpenOffice.info

Hallo mikeleb,
vielen Dank für die Erläuterungen.

Hallo mikeleb,
funktioniert. Ich danke Dir.
habe noch eine Frage zum Code.
Dim oCondition(3) as New com.sun.star.beans.PropertyValue
Die 3 in Klammern. Ist das die Anzahl der Bedingungen?
Auf diese Weise ließen sich ja mehr als drei Bedingungen einbauen.
Habe von 141 auf 140 geändert.
Nochmals ...

Habe das 2. Problem eben gelöst.
oCell = ThisComponent.Sheets(9).getCellRangeByName("C42","G42")
ersetzt durch
oCell = ThisComponent.Sheets(9).getCellRangeByName("C42")
oCelle = ThisComponent.Sheets(9).getCellRangeByName("G42")
am Ende folgene Zeile hinzugefügt
oCelle.ConditionalFormat ...

Hallo Fachleute,
trotz Dannenhöfer will mir das Makro nicht gelingen.
Für Zellen C42 und G42
1. Bed.: kleiner als 120
2. Bed.: zwischen 120 und 139
3. Bed.: größer gleich 141
2 Probleme
1. die 2. Bedingung wird nicht ausgeführt
2. der Code wird nur in Zelle C42, nicht in G42 ausgeführt
Würde mich ...

Hallo Karolus,
Dein Vorschlag ist sicher für die Libre-Nutzer gemeint.
In 2 bis 3 Jahren brauche ich OO nicht mehr.
Dann geh ich in Rente. Deshalb werde ich auch nicht mehr umsteigen.
Aber. Respekt und vielen Dank an Euch Helfer.
Mit Eurer Hilfe konnte ich ein kleines Programm (seit 2013 und ...

Hallo,
vielen Dank an euch Beide !!!
Wenn man die "Kleinigkeiten" übersieht, kann es nicht
klappen.

Hallo,
bekomme Fehler #WERT (Falscher Datentyp) angezeigt

Hallo.
funktioniert nicht.
In den Zellbereichen stehen Zahlen.
Liegt es daran, daß es nicht klappt?

Hallo Fachleute,
In A40 habe ich nachstehende Formel zu stehen
=RUNDEN(MITTELWERT($C$42:$C$73;$G$42:$G$73))
Wenn ich im Bereich A42:I42 Zellen einfüge (die anderen werden dann ja nach unten verschoben)
ändwert sich die Formel wie folgt:
=RUNDEN(MITTELWERT($C$43:$C$74;$G$43:$G$74))
Es sollte ...

Hallo,
hast recht, ohne Beispieldatei war es sinnlos.
Habe es aber selbst hinbekommen.
Die Reihenfolge der Spalten mußte geändert werden.

Hallo Fachleute,
schon vor einigen Jahren hatte mir Clag nachstehendes Makro gebaut.
Meine Versuche das auf zwei weitere Zellen zu erweitern, scheitern leider.
Nachfolgend mein Versuch.

sub ChangeCustomerData 'Änderungen speichern
myDoc =thisComponent
osheet = myDoc.sheets(2)
Vorname = osheet ...

Hallo Karolus,
nööö, mehr is da nicht.
Danke Dir. Funktioniert wie gewünscht.

Hallo Karolus,
es soll der späteste Behandlungsbeginn ermittelt werden (Formel in M12).
C23 ist das Ausstellungsdatum einer/s Verordnung/Rezeptes.
Je nach Krankenkasse (E12) gelten unterschiedliche Fristen:
(Beihilfe u. privat bleiben unberücksichtigt)
Für BG (E12) und Dringlicher Behandlungsbedarf ...

Hallo Fachleute,
ich versuche leider vergebens die nachfolgende Formel mit 2 weiteren Bedingungen zu ergänzen.

=WENN(E12<>"Beihilfe";WENN(E12<>"privat";WENN(C23="";"Behandlungsbeginn";WENN(G12="Ja";C23+14;WENN(E12="BG";C23+14;C23+28)))))

Bedingungen:
Wenn E12="BG" UND G12="Ja" dann C23+7 sonst ...

Hallo Stephan und Craig,
vielen Dank Für Eure rasche Antwort.
.cellBackColor = -1 eingefügt - funzt.
Link als Lesezeichen gesetzt !!

Schönen Abend noch.