LibreOffice-Forum

Code: Alles auswählen

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

Sub Main
	dim oSheet as Object
	dim i as Long, iMax as Long
	dim ar
		
	oSheet = ThisComponent.currentController.ActiveSheet
	iMax = getLastRowInColumn(oSheet, 0) ' 0 = A, 1 = B, 2 = C
	for i = 0 to iMax
		ar = mySplit(oSheet.getCellByPosition(0, i).String)
		oSheet.getCellByPosition(1, i).string = ar(0)
		oSheet.getCellByPosition(2, i).string = ar(1)
	next	 
End Sub

Function getLastRowInColumn(oSheet as Object, iColumn as integer) as Long
	dim oUsedCells as Object
	
	oUsedCells = oSheet.Columns(iColumn).queryContentCells(23)
	getLastRowInColumn = oUsedCells.RangeAddresses(oUsedCells.Count-1).endRow
End Function

Function mySplit(strVal as string) as Variant
	dim ar(0 to 1)
   	dim i as Long
   
   	for i = 1 to len(strVal)
		if mid(strVal, i, 1) Like "#" then exit for	   	
   	Next
   	ar(0) = left(strVal, i-1)
   	ar(1) = mid(strVal, i)
   	
   	mySplit = ar
End Function