OpenOffice.info

[color=#FF0000]Siehe auch[/color]: [url=http://www.openoffice-forum.de/viewtopic.php?f=21&t=5046&p=12065#p12060]Makroauslösung (event) wenn Zelle A1 >0?[/url] im [url=http://www.openoffice-forum.de]OpenOffice Forum[/url].
Sieht gleich aus, ist es aber nicht.
Gruß R

global oModListener

Sub S_register_ModListener
    oModListener = CreateUNOListener("ModListener_","com.sun.star.util.XModifyListener")
    ocell = thiscomponent.sheets.getbyname("Tabelle1").getcellrangebyname("A1")
    ocell.addModifyListener(oModListener)
end sub

Sub ModListener_modified(oEvt)
    if oEvt.source.value > 0 then
        [Anweisungsbereich]
    end if
End Sub

Sub ModListener_disposing
End Sub

Sub S_remove_ModListener
    ocell = thiscomponent.sheets(0).getcellbyposition(0,0)
    ocell.RemoveModifyListener(oModListener)
end sub

[b]Problem:[/b] ich will auf druck einer Schaltfläche, dass eine Stoppuhr anfängt zu laufen. ( Am besten in einer Zelle z.b A1) gestoppt wird mit modListener, der ein Makro aufruft, sobald etwas in eine Zelle ( hier: B1) geschrieben wird.
Das Makro welches ich verwende um die abfrage zu machen , wann sich B1 ändert habe ich bereits, doch wie starte und verknüpfe ich damit meine stoppuhr?
Code:
[code]
global oModListener

Sub S_register_ModListener
oModListener = CreateUNOListener("ModListener_","com.sun.star.util.XModifyListener")
ocell = thiscomponent.sheets.getbyname("Tabelle1").getcellrangebyname("A1")
ocell.addModifyListener(oModListener)
end sub

Sub ModListener_modified(oEvt)
if oEvt.source.value > 0 then
[Anweisungsbereich]
end if
End Sub

Sub ModListener_disposing
End Sub

Sub S_remove_ModListener
ocell = thiscomponent.sheets(0).getcellbyposition(0,0)
ocell.RemoveModifyListener(oModListener)
end sub
[/code]

Die Primäre Frage ist: [b]Wie bringe ich eine Stoppuhr zum laufen?[/b]
Sekundär: Wie verknüpfe ich die Stoppuhr mit dem gegebenen Makro um die Zeit zu messen bis etwas in die zelle eingegeben wurde?