[de-users] Regular Expression bei Datenfilter in Calc als Basiccode

[Heinz Höfling]

Wie kann ich bei unten aufgeführtem Basic-Code die Option "Regular Expression" 
als Befehlszeile einsetzen. Wie muss diese aufgebaut sein?
Für eine Antwort wäre ich sehr dankbar.

MfG

Heinz Hoefling

dim xFilterDesc as Object
xFilterDesc=ThisComponent.CurrentController.ActiveSheet.createFilterDescriptor(true)

 
ThisComponent.CurrentController.select(ThisComponent.CurrentController.activeSheet.getCellRangeByName("a3"))
dim objFilter(1) as new com.sun.star.sheet.TableFilterField
   objFilter(0).Field = 
ThisComponent.CurrentSelection(0).getCellRangeByName("a3").cellAddress.Column
   objFilter(0).IsNumeric = False 
   objFilter(0).OPERATOR = com.sun.star.sheet.FilterOperator.EQUAL 
   objFilter(0).StringValue =  
ThisComponent.Sheets.getByName("Hilfe").getCellRangeByName("A1").String

     xFilterDesc.setFilterFields(objFilter()) 
 xFilterDesc.ContainsHeader = true
    ThisComponent.CurrentController.ActiveSheet.filter(xFilterDesc)
   
ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("A1:A3").Rows.IsVisible
 = True