OpenOffice.info

Code: Alles auswählen

 Sub leereZellenFinden
   Dim oDoc As Object
   Dim oSheet As Object
   Dim oSearch As Object, oResult As Object         'Replace Descriptor (ScCellSearchObj)
   Dim oFound As Object, oFoundCursor as Object
   Dim n As Long
   Dim oDataArry As Object
   'dokument anlabern
   oDoc = ThisComponent
   oSheet = oDoc.Sheets.getByIndex(0)
   'cellrange sagen
   oCellRange = oSheet.getCellRangeByName("A1:A99")

   
   
   'Erstmal alles rot machen
   oCellrange.CellBackColor = RGB(255,0,0)
   'wo was drin steht weiss machen
   oSearch = oCellRange.createSearchDescriptor
   oSearch.SearchString = "[a-z]"
   oSearch.SearchRegularExpression = TRUE
   oResult = oSheet.findAll(oSearch)
   For n = 0 To oResult.count - 1
       oFound = oResult(n)
       oFound.CellBackColor = RGB(255,255,255)
   Next n
   End Sub


  

Code: Alles auswählen

Sub leerezellennullen()
oSelect=ThisComponent.CurrentSelection
oColumn=oselect.Columns
oRow=oSelect.Rows
For n= 0 To oColumn.getCount-1
For m = 0 To oRow.getCount-1
oCell=oselect.getCellByPosition (n, m)
Select Case oCell.String
Case ""
oCell.cellbackcolor = RGB(250,250,0)
End Select
next
next
End Sub

Code: Alles auswählen

sub color_BlankCells
orange = thiscomponent.currentselection
onew = orange.queryEmptyCells
onew.cellbackcolor = rgb(250,250,0)
end sub

Code: Alles auswählen

sub sub_color_BlankCells
orange = thiscomponent.currentselection
onew = orange.queryEmptyCells

on error goto out:
onew.cellbackcolor =  rgb(250,250,0)
out:
end sub