OpenOffice.info

Code: Alles auswählen

Sub Find_last_Row_C
	Sheet = ThisComponent.CurrentController.ActiveSheet   
	c = Sheet.getCellRangeByName("C9:C5000").queryEmptyCells
	getFirstEmptyRowInColumn = Split(c.RowDescriptions(0)," ")
	oRow = getFirstEmptyRowInColumn(1)
	mycell =  Sheet.getCellRangeByName("A" & oRow)	
	myView = thisComponent.CurrentController
	myView.Select(mycell)
End Sub

Code: Alles auswählen

sub gehe_zu_A_in_1_freier_zelle_in_C
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoLeftToStartOfData", "", 0, args2())
end sub