GELÖST Ausgeblendete Tabelle Bereich wird nicht kopiert

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: GELÖST Ausgeblendete Tabelle Bereich wird nicht kopiert

Re: Ausgeblendete Tabelle Bereich wird nicht kopiert

von achimgr » So, 13.07.2014 00:40

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

Re: Ausgeblendete Tabelle Bereich wird nicht kopiert

von clag » Fr, 11.07.2014 20:03

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) 94-mal heruntergeladen
hoffe das hilft dir

Re: Ausgeblendete Tabelle Bereich wird nicht kopiert

von Karolus » Fr, 11.07.2014 18:21

Hallo

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

Karolus

Re: Ausgeblendete Tabelle Bereich wird nicht kopiert

von achimgr » Fr, 11.07.2014 17:58

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 :D .

Re: Ausgeblendete Tabelle Bereich wird nicht kopiert

von clag » Fr, 11.07.2014 17:45

Hallo achimgr,
achimgr hat geschrieben:Was ist der Fehler?
der steht doch schon im Code ;)
achimgr hat geschrieben:JumpToTable"
achimgr hat geschrieben: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

Re: Ausgeblendete Tabelle Bereich wird nicht kopiert

von achimgr » Fr, 11.07.2014 17:03

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

Re: Ausgeblendete Tabelle Bereich wird nicht kopiert

von Karolus » Fr, 11.07.2014 16:41

Hallo
Was ist der Fehler?
Der steckt wahrscheinlich in dem Code den du uns leider nicht zeigst.

Karolus

GELÖST Ausgeblendete Tabelle Bereich wird nicht kopiert

von achimgr » Fr, 11.07.2014 16:06

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.

Nach oben