Hallo Kornelia,
Kornelia Lubke schrieb:
> Hast Du dafür eine Erklärung?
Ja, diese Zeile tut das:
oDoc2.CurrentController.Select (selCell)
Dir muß da auch nichts leid tun, das Problem ist nur unsere
Verständigung. Ich schrieb Dir zwar ich wolle den Code sehen, das ist
auch richtig, denn der Code ist für mich klar verständlich, aber ebend
wirklich nur was dasteht.
Ich kann einfach nicht wissen was nur deshalb dasteht weil Du es in
falscher Annahme reingeschrieben hast und die obenstehende Zeile für
sich ist nicht falsch.
(verwirrend? Nein, eigentlich nicht was ich meine ist wenn in einem
Kochbuch stehen soll 'geben sie 5 Esslöffel Öl in den Teig' und da ist
aber ein Druckfehler und es steht da 'geben sie 5 Esslöffel Milch in den
Teig' ist das zwar ein Fehler aber nicht als solcher zu erkennen. Zu
erkennen wäre nur 'geben sie 5 Esslöffel Motorenöl in den Teig' ;-))
Falls die Einfügung der Werte auf dem Blatt erfolgen soll was nach
meiner Code-Änderung das zuletzt aktive ist geht das so:
'...
----------------------------------------------------------------------
rem Tabellen-Cursor erzeugen und auf Zelle A37 bewegen
oView2.ActiveSheet
oZelle=oDoc2.getCurrentSelection() '<---####
x = oDoc2.getCurrentSelection().RangeAddress.Sheet '<--####
selCell = oDoc2.Sheets().getByIndex(x).getCellbyPosition
(0,36)'<--####
'Makro springt auf das letzte Tab.blatt - Warum?
oDoc2.CurrentController.Select (selCell)
rem
----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Format"
args1(0).Value = 1
dispatcher.executeDispatch(oFrame2, ".uno:PasteSpecial", "", 0,
args1())
oDoc2.CurrentController.Select (oZelle) '<--####
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
'...
Falls es das nun nicht ist, müßtest Du es nochmals genauer erklären.
Weil ich einfach nicht weiß wohin eingefügt werden soll, das ich
Obenstehendes vorschlage ist also zunächst nur geraten.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
