Bereich in and. Tabelle kopieren ohne diese aufzurufen

[achimgr]

Hallo,

ich habe folgendes Problem:
Karo gab mir mal diesen Code:
sub bereich_kopieren
oDocument = ThisComponent
oQuellblatt = oDocument.Sheets().getByName("Email-Formular")
oZielblatt = oDocument.Sheets().getByName("Email-Formular Anfrage")
' Quellbereich festlegen
oQuelleRange = oQuellblatt.getCellRangeByName("A1:J65")
oQuellRangeAddresse = oQuelleRange.getRangeAddress
oZiel = oZielblatt.getCellByPosition(26,1) 'einfügen ab A2
oZielCellAdresse=oZiel.getCellAddress
oZielblatt.copyRange(oZielCellAdresse,oQuellRangeAddresse)
end sub
Wunderbar, klappt. Jetzt aber folgendes: Ich möchte nun gerne NUR den Bereich kopieren -und nicht einfügen.
Das Einfügen mache ich dann direkt danach manuell in einer neuen Email mit Strg+V. Ich weiß, dass das wohl auch per Makro geht, aber das wird mir wohl noch zu kompliziert.
Ich wollte alle Zeilen mit "oZiel" rausnehmen und dachte nun habe ich nur kopiert - klappt aber nicht.
Mag mir jemand helfen?

[Karolus]

Hallo
Die in diesem Makro benuzte Methode ist ausschliesslich zum kopieren/einfügen innerhalb eines Tabellendokuments geeignet.
Du möchtest jetzt aber in die Zwischenablage kopieren und im Email-programm einfügen. Über den Suchbegriff "Zwischenablage" hier im Unterforum bekommst du zum Thema eine ganze Reihe von Ergebnissen.

Ich hoffe aber das es für deine Aufgabenstellung eine Lösung via Serienbrief/-email gefunden werden kann?

Gruß Karo

[tunix_xl]

Hallo achimgr,
vlt. hilft dir dies:

Code: Alles auswählen

''----------------------------------------------------------------------------------
Sub BereichKopieren()    ''
''----------------------------------------------------------------------------------
Dim oDoc As Object
Dim oSheet As Object
Dim vonBereich As Object

oDoc  = ThisComponent
oSheet  =  oDoc.getSheets().getByName("DeineTabelle")   
vonBereich = oSheet.GetCellrangeByPosition(0,0,100,100) ''' zu kopierender Bereich

 dim oFrame As object
 dim oDisp As object
 oFrame = ThisComponent.CurrentController.Frame
 oDisp = createUnoService("com.sun.star.frame.DispatchHelper")
 odoc.currentcontroller.select(vonBereich)
 oDisp.executeDispatch(oFrame, ".uno:Copy", "", 0, Array())

End sub

Der kopierte Bereich sollte dann in der Zwischenablage stehen... habs aber nicht getestet.

Hats gehilft??

Gruß
t.

[achimgr]

Hallo tunix,
habe erst jetzt wieder nachgeschaut.
Danke für den Code. Klappt zwar, aber eines passt noch nicht so: Ich bin in Tabelle1. Der Code soll einen Bereich in Tabelle2 kopieren, aber ohne "dahinzuspringen".
Ist das noch "einbaubar"?

[tunix_xl]

@achimgr

Ich weiß keinen Weg, wie sich das "Hinspringen" vermeiden ließe (uno:copy kopiert nur, was vorher selected ist)
zurückspringen geht mit (musst du an deine Gegebenheiten anpassen)

Code: Alles auswählen

Dim oSheet2 As Object
oSheet2 =  oDoc.getSheets().getByName("Tabelle2") 
oDoc.CurrentController.setActiveSheet(oSheet2)