Filterauswahl ändern
07.09.2017 09:02:40
Jens
mit der Funktion werden die ausgewählten Einträge des Autofilters in eine zelle eingetragen
Function FilterKriterien1(rng As Range) As String
Dim Filter As String
Dim f As Filter
Application.Volatile
For Each f In rng.Parent.AutoFilter.Filters
If f.On Then
Filter = Filter & Mid(f.Criteria1, 2)
Select Case f.Operator
Case xlAnd
Filter = Filter & " und " & f.Criteria2
Case xlOr
Filter = Filter & " oder " & f.Criteria2
End Select
Filter = Filter & " / "
End If
Next
FilterKriterien1 = Left(Filter, Len(Filter) - 2)
End Function
Zweites, soll es so sein, dass der Erste Eintrag nach dem gefilter wird als erstes eigetragen wird und dann der zweite also Eintrag1 /Eintrag2
Momentan ist es abhängig von der höheren Spaltennummer. Kann da wer weiterhelfen?
Anzeige