AutoFilter Status

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: AutoFilter Status von: eriknoack@gmx.de
Geschrieben am: 25.02.2005 14:52:56

Hallo,
Kann mir jemand von Euch sagen, wie man bei gesetzten Autofilter,
den Filterstatus abfragt. Also auch Werte gefiltert sind ?


Private Sub cmd_Copy_Click()
    If ActiveSheet.AutoFilter.??? > 0 Then
       Call Anpassen
    Else:
       MsgBox "Zuerst Filter setzen"
    End If
End Sub
erik
Bild


Betrifft: AW: AutoFilter Status von: Boris
Geschrieben am: 25.02.2005 15:02:34

Hi Erik,

einfachste Möglichkeit:
Irgendeine Spalte, die auf jeden Fall in jeder Zelle Werte enthält, mit TEILERGEBNIS(3;...) zählen und diese Ergebnis von ANZAHL2(...) - bezogen auf die gleiche Spalte - subtrahieren.
Ist das Ergebnis größer Null, ist irgendein Filter aktiv.

Grüße Boris


Bild


Betrifft: AW: AutoFilter Status von: erik
Geschrieben am: 25.02.2005 15:06:40

Hallo Boris,

ich glaube so eine Spalte, in welcher 100% Werte vorhanden sind, gibt es bei mir nicht !

erik


Bild


Betrifft: AW: AutoFilter Status - Filter aktiv? von: Boris
Geschrieben am: 25.02.2005 15:18:52

Hi Erik,

dann eben per VBA:

Option Explicit


Sub filter_aktiv()
Dim aSh As Worksheet
Dim aF As AutoFilter
Dim i As Long
Dim bol As Boolean
Set aSh = ActiveSheet
Set aF = aSh.AutoFilter
If aSh.FilterMode Then
    For i = 1 To aF.Filters.Count
        If aF.Filters(i).On Then
            bol = True
            Exit For
        End If
    Next i
End If
If bol Then
    MsgBox "Alles klar...", 64, "Oki doki..."
Else
    MsgBox "Kein Filter aktiv!", 64, "So nicht..."
End If
End Sub


Grüße Boris


Bild


Betrifft: AW: AutoFilter Status - Filter aktiv? von: erik
Geschrieben am: 25.02.2005 16:04:01

Hallo Boris,

ganz stark, Danke !

erik


 Bild

Beiträge aus den Excel-Beispielen zum Thema "AutoFilter Status"