OpenOffice.info

Code: Alles auswählen

	nStartRow = 0 REM Ab welcher Zeile suchen
	aSpalten = Array(0,1,2,4,5,6) REM In welchen Spalten suchen
	sSearchString = "?" REM Wonach suchen
	
	oDoc = thiscomponent
	oSheet = oDoc.CurrentController.ActiveSheet
	
	oSD = oSheet.createSearchDescriptor
	With oSD
		.SearchWords = True
		.SearchString = sSearchString
	End With
	
	oCursor = oSheet.createCursor
	oCursor.goToEndOfUsedArea(False)
	nLastRow = oCursor.RangeAddress.EndRow
	
	For x = LBound(aSpalten) To UBound(aSpalten)
		oSearchRange = oSheet.getCellRangeByPosition(aSpalten(x),nStartRow,aSpalten(x),nLastRow)
		oResult = oSearchRange.findAll(oSD)
		If NOT isNull(oResult) Then	
			oRangeAddresses = oResult.RangeAddresses
			For i = LBound(oRangeAddresses) To UBound(oRangeAddresses)
				nCount = nCount + (oRangeAddresses(i).EndRow - oRangeAddresses(i).StartRow + 1)
			Next i
		End If
	Next x
	
	MsgBox nCount