Hallo,
Kornelia Lubke schrieb:
> überredet. Aber nicht motzen, ich stecke bei
> Makroprogrammierung noch in
> den Kinderschuhen. ;-)
Nö, ich habe ja danach gefragt. Und das ist schon OK so, versuche ruhig
ein bißchen, auch wenn es etwas zunächst chaotisch aussieht, das macht
zunächst Nichts - Wenn das dann aber fertig ist solltest Du Dich aber
dransetzen und den Code etwas 'versäubern'
Ich denke Untenstehendes sollte das Problem ansich zunächst beheben.
> 'Makro springt auf das letzte Tab.blatt - Warum?
> oDoc2.CurrentController.Select (selCell)
Na weil Du die Zelle auswählst mit Select
Macht Du hier:
'...
----------------------------------------------------------------------
rem Tabellen-Cursor erzeugen und auf Zelle A37 bewegen
oView2.ActiveSheet
selCell = oDoc2.Sheets (GetPosActiveSheet).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())
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
'...
das:
'...
----------------------------------------------------------------------
rem Tabellen-Cursor erzeugen und auf Zelle A37 bewegen
oView2.ActiveSheet
oZelle=oDoc2.getCurrentSelection() '<---####
selCell = oDoc2.Sheets (GetPosActiveSheet).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
----------------------------------------------------------------------
'...
sollte helfen wenn in dem Dokument vor dem Markieren der spezifischen
Zelle für das Paste die richtige Zelle/Blatt aktiv war.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
