OpenOffice.info

[quote="X-Hair"]Dumme Frage, aber wo genau gebe ich diesen Code ein ?[/quote]
[url=http://www.ooowiki.de/MakrosInstallieren]MakrosInstallieren[/url]

Gruß
lorbass

Sub repeater

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

do 
	dispatcher.executeDispatch(document, ".uno:CalculateHard", "", 0, Array())
	
loop until thiscomponent.sheets(0).getCellByPosition(0,0).value = 42  'Wert von A1 in der ersten Tabelle
'oder:
'loop until thiscomponent.sheets(0).getCellByPosition(0,0).string = "dein gewünschter Text"

End Sub

Hallo
Zeichne die Aktion Strg+shift+F9 als Makro auf und steck das in einen 'do.....loop until deine bedingung trifft zu' -Block:

[code]Sub repeater

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

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

loop until thiscomponent.sheets(0).getCellByPosition(0,0).value = 42 'Wert von A1 in der ersten Tabelle
'oder:
'loop until thiscomponent.sheets(0).getCellByPosition(0,0).string = "dein gewünschter Text"

End Sub[/code]

Karo

Hallo

Welche Bedingungen müssen denn zutreffen damit 'Richtig' ausgegeben wird?
Wahrscheinlich ist es effizienter den ganzen Job per Code darzustellen.

Karo