Makro soll etwas in Tabelle schreiben

[Mauritius]

Hallo zusammen,
ich brauche den Befehl, mit dem ich mittels einem Makro etwas in eine Zelle in der Tabelle schreiben kann. Ich hab es schon mittels der "MakroAufzeichnung" versucht, jedoch ohne vernünftiges Ergebnis. Dies kam dabei heraus:

Code: Alles auswählen

sub test_schreiben
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())


end sub

So weit so gut, nur fehlt der Befehl, der sagt, er soll bspw. test in die Zelle A3 schreiben. Gestern ging es noch, hatte leider vergessen abzspeichern. Doch heute liefert mit OO Calc dieses Ergebnis. Kann mir einer bitte weiterhelfen?

Vielen Dank.

VG
Mauritius

[lorbass]

Vielleicht hilft dir Michael Dannenhöfers StarBasic / OpenOffice.org Basic FAQ weiter? Bei dieser Frage speziell diese Seite 7.1.1 Wie bekomme ich Zugriff zu einer Zelle?.

BTW: Weitere Fragen zu Basic solltest du unter der Rubrik OOo Basic und Java stellen.

Gruß
lorbass