Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

		

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige