Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoFilter Status

Forumthread: AutoFilter Status

AutoFilter Status
25.02.2005 14:52:56
eriknoack@gmx.de
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoFilter Status
Boris
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
Anzeige
AW: AutoFilter Status
25.02.2005 15:06:40
erik
Hallo Boris,
ich glaube so eine Spalte, in welcher 100% Werte vorhanden sind, gibt es bei mir nicht !
erik
AW: AutoFilter Status - Filter aktiv?
Boris
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
Anzeige
AW: AutoFilter Status - Filter aktiv?
25.02.2005 16:04:01
erik
Hallo Boris,
ganz stark, Danke !
erik
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige