Stoppuhr erstellen mit Star Basic in OO-Calc

[110jojo]

Problem: 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: Alles auswählen

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

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

[F3K Total]

Siehe auch: Makroauslösung (event) wenn Zelle A1 >0? im OpenOffice Forum.
Sieht gleich aus, ist es aber nicht.
Gruß R