GELÖST Ausgeblendete Tabelle Bereich wird nicht kopiert

[achimgr]

Hallo

(Die Tabellen 1+2 sind ausgeblendet)

ich bin in Tabelle 4.

Das Makro soll den Bereich mit Namen "FAX" (in Tabelle 3) kopieren.
Dann wechsel ich ins Email-Programm und klicke einfügen - alles gut, die Daten sind da.

Wenn ich die Tabelle 3 auch ausblende, wird von der aktiven Tabelle 4 (nun an erster Position der Tabellenblätter) der Bereich (der dem Bereich "FAX" in Tabelle 3 entspricht) kopiert.
Was ist der Fehler?

Vielen Dank.

[Karolus]

Hallo

Was ist der Fehler?

Der steckt wahrscheinlich in dem Code den du uns leider nicht zeigst.

Karolus

[achimgr]

Code sieht so aus:
sub FAX_KOPIEREN
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 = "FAX"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Nr"
args3(0).Value = 4

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$D$30"

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


end sub

[clag]

Hallo achimgr,

Was ist der Fehler?

der steht doch schon im Code

JumpToTable"

GoToCell"

beides nicht möglich weil nicht da


du wirst da nicht umhinkommen beim Aufzeichnen damit zu beginnen,
die Tabelle einzublenden
die Werte kopieren
die Tabelle wieder ausblenden
und immer so weit möglich Menübefehle nutzen

oder dich intensiver mit Basic befassen

[achimgr]

Ok danke erst mal, claq
Ich dachte der Bereich mit Name deklariert wird auch bei der ausgeblendeten Tabelle erfasst und kopiert .
Das mit dem einblenden per Makro versuche ich mal, dürfte aber nicht so toll aussehen, die Show die dann da abläuft .

[Karolus]

Hallo

Wirf den aufgezeichneten Code einfach weg, und schreib bei Dannenhöfer ab

Karolus

[clag]

Hallo achimgr,

habe da mal was für dich gebastelt

Code: Alles auswählen

Sub copytoclip

Dim oDispatcher
Dim oFrame
'Dispatcher für Zwischenablage-Befehle
oFrame = ThisComponent.CurrentController.Frame
oDispatcher=createUnoService("com.sun.star.frame.DispatchHelper")
oCalc=thisComponent

myView = oCalc.CurrentController
mySheet = oCalc.Sheets().getByName("Tabelle2")
mycell = mysheet.getCellRangeByName("C5:E5")

    mysheet.isvisible=true
    myView.Select(mycell)
    oSel=oCalc.getCurrentselection()
    oDispatcher.executeDispatch(oFrame,".uno:Copy","",0,Array())
    mysheet.isvisible=false

End Sub

copy_to_clip.ods

(11.09 KiB) 93-mal heruntergeladen

hoffe das hilft dir

[achimgr]

Hallo Clag.
vielen, vielen Dank, dass Du Dir die Mühe gemacht hast. Das ist ja klasse.
Und Dank an Karolus für den Tipp.
Achim