OpenOffice.info

Code: Alles auswählen

REM  *****  BASIC  *****

Option Explicit

Global oRange
Global oListener

Const LISTENER_TABLE = "Tabelle1"	' die zu überwachende Tabelle
Const LISTENER_RANGE = "A2:A99"		' der zu überwachende Bereich

Sub AddListener()
	oListener = CreateUnoListener("Change_", "com.sun.star.util.XModifyListener")
    oRange = ThisComponent.Sheets(LISTENER_TABLE).getCellRangeByName(LISTENER_RANGE)
    oRange.addModifyListener(oListener)
End Sub

Sub RemoveListener()
    On Error Resume Next
    oRange.removeModifyListener(oListener)
End Sub

Sub Change_modified()
	dim oCell as Object, oView as Object, oSheet as Object,oNewCell as Object
	
	oCell = ThisComponent.getCurrentSelection
	if oCell.supportsService("com.sun.star.sheet.SheetCell") Then ' eine einzelne Zelle
		oSheet = ThisComponent.currentcontroller.activesheet
		oNewCell = oSheet.getCellByPosition(5, oCell.getRangeAddress.StartRow) ' Gehe in Spalte F
   		oView =  ThisComponent.CurrentController
   		oView.Select(oNewCell)
	endif
End Sub

Code: Alles auswählen

Sub lstAuswahl_Change(oEvt As Object)
	nSrc = oEvt.Source.Model.selectedItems(0)

	oSheet = ThisComponent.sheets(0)
	oCellCursor = oSheet.createCursor
    oCellCursor.GotoEndOfUsedArea(False)
    nDst = oCellCursor.getRangeAddress().endRow	+ 5
    
	oSheet.Rows.CellBackColor = -1

	oSrcRange = oSheet.getCellRangeByPosition(0, nSrc, 255, nSrc).getRangeAddress
	oDstCell  = oSheet.getCellbyPosition(0, nDst).getCellAddress
	oSheet.copyRange(oDstCell, oSrcRange)

	oSheet.rows(nSrc).CellBackColor = RGB(255,255,0)
End Sub