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