Anzeigeproblem nach Makroausführung

[Hinzi]

Hallo liebe Community,

ich habe folgendes Problem:

ich schreibe mit einem Makro einen Zeitstempel in eine bestimmte Zelle in einer Calc Tabelle. Das funktioniert auch, jedoch sehe ich das nur, wenn ich die Zelle anklicke und oben in die Eingabezeile schaue (siehe Bild). Wenn ich aber das Calc Fenster z.B. minimiere oder speichere, dann sehe ich den Wert auch richtig in der Zelle. Das Screenupdating oder Werteneuberechnung wird im Makro nicht ausgeschaltet. Hoffe ihr könnt helfen.



vg
Christoph

[F3K Total]

Hallo,
versuchs mal so:

Code: Alles auswählen

Sub Main
    ocell = thiscomponent.sheets(0).getcellbyposition(0,0)
    ocell.value = now()
    thiscomponent.calculateall
End Sub

Gruß R

[Hinzi]

Hallo,

das hat zwar das Problem gelöst, jedoch hat er mit diesem Befehl auch wieder das Makro gestartet, dass auf eine Eingabe in der 3. Spalte wartet und somit ist es in einer Endlosschleife hängen geblieben. Ein Kollege von mir meinte, dass es nach Strg+Umschalt+R alles richtig angezeigt wird. Da habe ich einfach mal ein Makro aufgezeichnet und die Tastenkombination gedrückt. Folgender Code kam dabei heraus:

Code: Alles auswählen

dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Repaint", "", 0, Array())

Diesen einfach hinten dran kopiert ans Makro und schon hat alles funktioniert. Für alle die mal das selbe Problem haben sollten.

Viele Grüße