OpenOffice.info

Code: Alles auswählen

   oDocument = ThisComponent
   oSheet1 = oDocument.Sheets.getByIndex(0)
   oSheet2 = oDocument.Sheets.getByIndex(1)
' Quellzeilen festlegen
   oRow1 = oSheet1.Rows.getByIndex(0) 'Zeile 1 in oSheet1
   oQuellRangeAddresse = oRow1.getRangeAddress() 'RangeAddress von Zeile 1 in Sheet1
   oQuellRangeAddresse.EndRow = 6 'jetzt RangeAddress von Zeile 1 bis Zeile 7 in Sheet1

' Zielzelle festlegen (muss in Spalte 0 sein)   
   oZiel = oSheet2.getCellByPosition(0,4) 'Zelle A5 in oSheet2
   oZielCellAdresse=oZiel.getCellAddress()
   
   oSheet2.copyRange(oZielCellAdresse,oQuellRangeAddresse) 'Kopiert Zeilen 1:7 aus Sheet1 in Sheet2 ab Zeile 5

Code: Alles auswählen

REM  *****  BASIC  *****
'     Umgestellt auf zwei Tabellen wegen der 
'     dynamischen Kopie einer Tabellenerweiterung
Sub Move_cells_to_row_4_copy_paste_cells
Dim oDoc
Dim oCelle
Dim oSheet
Dim oSheet1
Dim oSheet2
Dim oRow
Dim oColumn
Dim oRangeAddress
rem get access to the document
oDoc = thisComponent
		' aktive Zelle
oCelle = oDoc.getCurrentSelection().getCellAddress()
        ' aktives Tabellenblatt
oSheet = oDoc.sheets(oCelle.Sheet)
        ' aktuelle Zeile, Index
oRow = oCelle.Row
        ' aktuelle Spalte, Index
        ' Gültige Zeile für move überprüfen
if oRow mod 7 - 2 <> 1 then
	'msgbox orow
	exit sub
	end if
        ' aktuelle Spalte, Index
oColumn = oCelle.column
		'msgbox "Spalte "+oColumn
if oColumn = 0 then
	spalte = "A4:A10"
	zeilen = "A"+(oRow+8)+":A"+(oRow+14)
	end if
if oColumn = 1 then
	spalte = "B4:B10"
	zeilen = "B"+(oRow+8)+":B"+(oRow+14)
	end if
if oColumn = 2 then
	spalte = "C4:C10"
	zeilen = "C"+(oRow+8)+":C"+(oRow+14)
	end if
if oColumn = 3 then
	spalte = "D4:D10"
	zeilen = "D"+(oRow+8)+":D"+(oRow+14)
	end if
if oColumn = 4 then
	spalte = "E4:E10"
	zeilen = "E"+(oRow+8)+":E"+(oRow+14)
	end if
if oColumn = 5 then
	spalte = "F4:F10"
	zeilen = "F"+(oRow+8)+":F"+(oRow+14)
	end if
	' unfertig !! Zellbereiche werden kopiert und an das Ende gestellt
	' Kopie von Tabelle2 klappt nur [b]ohne richtige Zellhöhe[/b] die Positionen
	' noch variabel machen und auf Ende prüfen !
oSheet1 = oDoc.Sheets.getByIndex(0)
oSheet2 = oDoc.Sheets.getByIndex(1)
oQuelleRange = oSheet2.getCellRangeByPosition(0,0,5,6)
oQuellRangeAddresse = oQuelleRange.getRangeAddress
oZiel = oSheet1.getCellByPosition(0,38)
oZielCellAddresse = oZiel.getCellAddress
oSheet1.copyRange(oZielCellAddresse,oQuellRangeAddresse)
	'ende von unfertig !!
		'Platz machen
oRangeAddress = oSheet.getCellRangeByName(spalte).getRangeAddress()
oSheet.insertCells(oRangeAddress, com.sun.star.sheet.CellInsertMode.DOWN)
		'Zellen mitnehmen
oRangeAddress = oSheet.getCellRangeByName(zeilen).getRangeAddress()
oCellAddress = oSheet.getCellByPosition(oColumn, 3).getCellAddress
oSheet.moveRange(oCellAddress, oRangeAddress)
oSheet.removeRange(oRangeAddress, com.sun.star.sheet.CellDeleteMode.UP)
End Sub

Code: Alles auswählen

   oDocument = ThisComponent
   oSheet1 = oDocument.Sheets.getByIndex(0)
   oSheet2 = oDocument.Sheets.getByIndex(1)
' Quellzeile festlegen
   oQuelleRange=oSheet1.Rows.getByIndex(2) 'Zeile 3 in oSheet1
   oQuellRangeAddresse = oQuelleRange.getRangeAddress
' Zielzelle festlegen (muss in Spalte 0 sein)   
   oZiel = oSheet2.getCellByPosition(0,4) 'Zelle A5 in oSheet2
   oZielCellAdresse=oZiel.getCellAddress()
   
   oSheet2.copyRange(oZielCellAdresse,oQuellRangeAddresse) 'Kopiert Zeile 3 aus Sheet1 in Zeile 5 von Sheet2

Code: Alles auswählen

...
with sourcerange
    for i = 0 to .Rows.Count()-1
        targetrange.Rows( i ).Height = .Rows( i ).Height
    next 
end with
...