Seite 1 von 1
GELÖST Ausgeblendete Tabelle Bereich wird nicht kopiert
Verfasst: Fr, 11.07.2014 16:06
von 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.
Re: Ausgeblendete Tabelle Bereich wird nicht kopiert
Verfasst: Fr, 11.07.2014 16:41
von Karolus
Hallo
Was ist der Fehler?
Der steckt wahrscheinlich in dem Code den du uns leider nicht zeigst.
Karolus
Re: Ausgeblendete Tabelle Bereich wird nicht kopiert
Verfasst: Fr, 11.07.2014 17:03
von 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
Re: Ausgeblendete Tabelle Bereich wird nicht kopiert
Verfasst: Fr, 11.07.2014 17:45
von clag
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
Verfasst: Fr, 11.07.2014 17:58
von 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
.
Re: Ausgeblendete Tabelle Bereich wird nicht kopiert
Verfasst: Fr, 11.07.2014 18:21
von Karolus
Hallo
Wirf den aufgezeichneten Code einfach weg, und schreib bei
Dannenhöfer ab
Karolus
Re: Ausgeblendete Tabelle Bereich wird nicht kopiert
Verfasst: Fr, 11.07.2014 20:03
von 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
hoffe das hilft dir
Re: Ausgeblendete Tabelle Bereich wird nicht kopiert
Verfasst: So, 13.07.2014 00:40
von 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