AW: nur 2 Kriterien
19.10.2010 10:03:42
Gordon
So,
nun habe ich es hinbekommen! *freu*
Bei mehr als zwei Kriterien bei 2007 wird in Criteria1 ein Array mit allen aktiven Filterkriterein geschrieben. Criteria2 bleibt dann leer. Daher habe ich mir nun diese Funktion zusammen geschustert:
Function FilterKriterium(i) As String
Dim ws As Worksheet
Dim flt As Filter
Dim j, arrLänge As Integer
Dim arr()
Dim strKrit As String
On Error GoTo Krit3
Application.Volatile
'Blatt mit dem Filter bestimmen
Set flt = Worksheets("Liste").AutoFilter.Filters(i)
'Wenn nur ein bis zwei Filterkriterien geschaltet sind
If flt.On = True Then
strKrit = Right(flt.Criteria1, Len(flt.Criteria1) - 1)
If flt.Operator Then
strKrit = strKrit & ", " & Right(flt.Criteria2, Len(flt.Criteria2) - 1)
End If
FilterKriterium = strKrit
End If
Exit Function
'Bei mehr als zwei Kriterien
Krit3:
arr = flt.Criteria1
strKrit = Right(arr(1), Len(arr(1)) - 1)
For j = 2 To UBound(arr)
strKrit = strKrit & ", " & Right(arr(j), Len(arr(j)) - 1)
Next j
FilterKriterium = strKrit
End Function
Gruß
Gordon