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"