von Stephan » Di, 18.12.2018 16:46
Hinweis: Ich muss das Sub_SimpleSheetFilter-Makro verwenden .
Und welches Problem tritt dabei auf? Das verlinkte Makro funktioniert bei mir wunderbar, außer das Du eine Zeile ergänzen musst (oFilterDesc.ContainsHeader = True) damit die Spaltenbeschriftungen nicht weggefiltert werden:
Code: Alles auswählen
Sub SimpleSheetFilter()
Dim oSheet ' Sheet that will contain the filter.
Dim oFilterDesc ' Filter descriptor.
Dim oFields(0) As New com.sun.star.sheet.TableFilterField
oSheet = ThisComponent.getSheets().getByIndex(0)
oFilterDesc = oSheet.createFilterDescriptor(True)
With oFields(0)
.Field = 0 ' Column A
.IsNumeric = True
.NumericValue = 1
.Operator = com.sun.star.sheet.FilterOperator.EQUAL
End With
oFilterDesc.setFilterFields(oFields())
oFilterDesc.ContainsHeader = True
oSheet.filter(oFilterDesc)
End Sub
Wie hingegen Deine konkrete Filterbedingungen sein sollen (ich mutmaße dort ist das Problem) kann ich anhand von :
"dieselbe Makrooperation der angefügten Datei auszuführen, dh die Zellen "B1" zu filtern und "C1" in spalte "A" ."
nicht erkennen.
Ich nehme an weil Dir die Übersetzung ins Deutsche schwerfällt, aber dann schreibe es bitte nochmals etwas anders, momentan kann ich das nicht deuten.
Gruß
Stephan
[quote]Hinweis: Ich muss das Sub_SimpleSheetFilter-Makro verwenden .[/quote]
Und welches Problem tritt dabei auf? Das verlinkte Makro funktioniert bei mir wunderbar, außer das Du eine Zeile ergänzen musst (oFilterDesc.ContainsHeader = True) damit die Spaltenbeschriftungen nicht weggefiltert werden:
[code]Sub SimpleSheetFilter()
Dim oSheet ' Sheet that will contain the filter.
Dim oFilterDesc ' Filter descriptor.
Dim oFields(0) As New com.sun.star.sheet.TableFilterField
oSheet = ThisComponent.getSheets().getByIndex(0)
oFilterDesc = oSheet.createFilterDescriptor(True)
With oFields(0)
.Field = 0 ' Column A
.IsNumeric = True
.NumericValue = 1
.Operator = com.sun.star.sheet.FilterOperator.EQUAL
End With
oFilterDesc.setFilterFields(oFields())
oFilterDesc.ContainsHeader = True
oSheet.filter(oFilterDesc)
End Sub
[/code]
Wie hingegen Deine konkrete Filterbedingungen sein sollen (ich mutmaße dort ist das Problem) kann ich anhand von :
[i] "dieselbe Makrooperation der angefügten Datei auszuführen, dh die Zellen "B1" zu filtern und "C1" in spalte "A" ."[/i]
nicht erkennen.
Ich nehme an weil Dir die Übersetzung ins Deutsche schwerfällt, aber dann schreibe es bitte nochmals etwas anders, momentan kann ich das nicht deuten.
Gruß
Stephan