Super!!!!! genau so habe ich mir das vorgestellt
nur noch eine klitzekleine kleinigkeit.....
den filter bis 75 und den über 90 habe ich hinbekommen, null problemo.
den code für die 2 filter über 75 bis 90 den du geschrieben hast, habe ich in Sub filter_kopieren zwischen
'Filterbedingung setzen und 'Filterung durchführen eingefügt, sieht dann so aus:
'Filterbedingung setzen
aFilterFields = DimArray(1)
aFilterFields(0) = new com.sun.star.sheet.TableFilterField
aFilterFields(0).Connection = com.sun.star.sheet.FilterConnection.AND
aFilterFields(0).field=6
aFilterFields(0).IsNumeric = true
aFilterFields(0).NumericValue=7500
aFilterFields(0).Operator = com.sun.star.sheet.FilterOperator.GREATER
aFilterFields(1) = new com.sun.star.sheet.TableFilterField
aFilterFields(1).Connection = com.sun.star.sheet.FilterConnection.AND
aFilterFields(1).field=6
aFilterFields(1).IsNumeric = true
aFilterFields(1).NumericValue=9000
aFilterFields(1).Operator = com.sun.star.sheet.FilterOperator.LESS_EQUAL
'Filterung durchführen
das resultat, ist aber dass alles kopiert wird und in "gespielt 90+" eingefügt wird. es findet keine filterung statt. hab schon ein bischen rumgespielt..... komm aber nicht drauf.
gruß, Jo