OpenOffice.info

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

@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]
Dim oSheet2 As Object
oSheet2 = oDoc.getSheets().getByName("Tabelle2")
oDoc.CurrentController.setActiveSheet(oSheet2)[/code]

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"?

''----------------------------------------------------------------------------------
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

Hallo achimgr,
vlt. hilft dir dies:

[code]''----------------------------------------------------------------------------------
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
[/code]

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

Hats gehilft??

Gruß
t.

Hallo
Die in diesem Makro benuzte Methode ist ausschliesslich zum kopieren/einfügen[b] innerhalb eines Tabellendokuments[/b] geeignet.
Du möchtest jetzt aber in die [b]Zwischenablage[/b] 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

Hallo,

ich habe folgendes Problem:
Karo gab mir mal diesen Code:
[color=#0000FF]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[/color]
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?