OpenOffice.info

So, muss mich nochmal melden.

Deine Lösung funktioniert leider nur bedingt: Die bedingten Formatierungen werden nur in den Zeilen aktualisiert, in denen Werte neu berechnet werden!
Ein Minimalbeispiel:

Doch,
gehe in deinen ersten Beitrag, ändern, und schreibe z.B.[gelöst] in die Kopfzeile.
Gruß R

Sowas wie "gelöst" gibt es hier nicht, oder?

Super, danke!

Sub S_Calculate_New
    thiscomponent.calculate
End Sub

Moin,
[quote="Blueonestyle"]Ich hab eine [color=#0040FF][b]kleine[/b][/color] Makro-Frage[/quote] ... da hast du recht, ein kleineres Makro habe ich selten gesehen:
[code]Sub S_Calculate_New
thiscomponent.calculate
End Sub[/code]
Beispiel, siehe unten.
Gruß R

sub BerechneNeu
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:CalculateHard", "", 0, Array())


end sub

Hi Leute,

Ich hab eine kleine Makro-Frage. Ich hab in meiner Tabelle einige Zufallszahlen, die mittels eines Makros neu würfeln kann.
Das geschieht über den Befehl "dispatcher.executeDispatch(document, ".uno:CalculateHard", "", 0, Array())", der ja STRG+Shift+F9 entspricht.
Damit ich für bestimmte Zufallszahlen aufmerksamgemacht werde, habe ich bedingteFormartierungen für die entsprechenden Zufallszahlenzellen erstellt. Leider aktualisiert der Befehl zwar die Zahlen, überprüft aber die Bedinungen für die neuen Zahlen nicht.

Welche Befehl brauche ich dafür? Bitte helft mir.

Anbei mein gesamtes Makro:
[code]
sub BerechneNeu
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:CalculateHard", "", 0, Array())


end sub
[/code]


[color=#00AA00][u]Moderation:[/u]
Thema nach [url=http://de.openoffice.info/viewforum.php?f=18]OOo Basic und Java[/url] verschoben, wo alle Themen zur Basic-Programmierung hingehören.
lorbass, Mod[/color]