Calc: Zellen finden, Zeilen mit farbigem Hintergrund

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

retuwe61
****
Beiträge: 159
Registriert: So, 18.11.2007 21:25

Calc: Zellen finden, Zeilen mit farbigem Hintergrund

Beitrag von retuwe61 »

Hallo miteinander.
Mit nachfolgendem Code werden zwar in Spalte G die gefundenen Zellen mit farbigem Hintergrund versehen.
Wie erreiche ich es, dass der jeweilige Zeilenbereich von Spalte A bis H ebenfalls farbig hinterlegt wird?
Bin gespannt.
Gruß
Uwe

Code: Alles auswählen

Global RegSearch as variant
   
     Sub Suche()
       myDoc = thisComponent
       myView = myDoc.CurrentController
       mySheet = myView.ActiveSheet
       oCellCursor = mySheet.createCursor()
		oCellCursor.GotoEndOfUsedArea(True)
		 letzte_Zeile = oCellCursor.getRangeAddress.EndRow

		oRange=mySheet.getCellRangeByPosition(6,0,6,letzte_Zeile)
	       
       RegSearch = InputBox("Suchbegriff eingeben", "Input Suchen", RegSearch)
       
       SearchDesc = oRange.createSearchDescriptor
       SearchDesc.SearchString = RegSearch
       SearchDesc.SearchCaseSensitive = false
       SearchDesc.SearchRegularExpression = True
      
      myCell = mySheet.FindAll( SearchDesc )
       myCell.Cellbackcolor= RGB(255,0,0)
      
    End Sub
Angewandt wird LibeOffice Version 5.1.6.2
retuwe61
****
Beiträge: 159
Registriert: So, 18.11.2007 21:25

Gelöst: Calc: Zellen finden, Zeilen mit farbigem Hintergrund

Beitrag von retuwe61 »

Sorry, habe meine Frage zu früh gepostet.
Nach langem Kopfzerbrechen bin ich eben selbst darauf gekommen.
Gruß
Uwe
Wen es interessiert:

Code: Alles auswählen

Sub Suche
myDoc = thisComponent
myView = myDoc.CurrentController
mySheet = myView.ActiveSheet

ncolumn = 6 
ocursor = mysheet.createcursor
ocursor.gotoendofusedarea(false)
aRangeAddress = ocursor.RangeAddress
nEndRow = aRangeAddress.EndRow

       RegSearch = InputBox("Suchbegriff eingeben", "Input Suchen", RegSearch)
for i = 0 to nEndRow
 ocell = mySheet.getcellbyposition(ncolumn,i)
 if ocell.String = RegSearch then
  oRange = mySheet.getcellrangebyposition(ncolumn-6,i,ncolumn+1,i)
  oRange.Cellbackcolor= RGB(255,255,0)
 endif
next i
End Sub
Angewandt wird LibeOffice Version 5.1.6.2
Antworten