Seite 1 von 1

Anzeigeproblem nach Makroausführung

Verfasst: Fr 6. Sep 2013, 14:19
von 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.

Bild

vg
Christoph

Re: Anzeigeproblem nach Makroausführung

Verfasst: Fr 6. Sep 2013, 23:21
von 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

Re: Anzeigeproblem nach Makroausführung

Verfasst: Mo 9. Sep 2013, 08:57
von 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