habe folgenden Code erstellt. Und zwar läuft dieses Makro solange bis jemand über einen Button den AutoFilter deaktiviert. Die gewählten Kriterien werden ausgelesen und in einer Zeile ausgegeben. Soweit funktioniert alles Bestens. Jetzt würde ich aber gerne abfangen wenn der Benutzer die Auswahl Top10 beim AutoFilter wählt. Kann mir jemand sagen an welcher stelle ich das mache? Funktionieren sollte das ganze, denke ich mit der Operator Eigenschaft die mir ein XlAutoFilterOperator-Konstante zurückgibt.
Hoffe mir kann jemand auf die Sprünge helfen....
Gruß
Do While .AutoFilterMode = True
DoEvents 'weitere Ereignisse verarbeiten
For Each f In .AutoFilter.Filters
intCol = intCol + 1 'Gefilterte Spalte ermitteln
If f.On Then
strKrit1 = "Krit1: "
strKrit1 = strKrit1 & CStr(f.Criteria1) 'Filterkriterium ausgeben
If f.Operator Then
strKrit2 = " Krit2: "
strKrit2 = strKrit2 & CStr(f.Criteria2)
End If
Cells(9, intCol).Value = strKrit1 & strKrit2
End If
Next
intCol = 0
Loop