Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1340to1344
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Feststellen ob Autofilter und Daten eff. gefiltert

Feststellen ob Autofilter und Daten eff. gefiltert
16.12.2013 22:27:54
Peter
Guten Abend
Ich habe in einer Tabelle einen Autofilter gesetzt.
Beim Verlassen der Tabelle lauft ein Code ab 
Private Sub Worksheet_Deactivate()
End Sub
Nun möchte ich zuerst feststellen (mit einer UDF?), ob ein Activfilter gesetzt ist und wenn ja, ob alle Daten angezeigt werden.
Ich möchte nur dies feststellen und nicht etwa - falls die Tabelle gefiltert ist, mit ShowAllData alle Daten anzeigen. Wenn nicht alle Daten angezeigt werden, möchte ich das Ablaufen des Codes verhindern.
Ideal wäre, wenn ich als Rückgabe 0 (Null) erhalte, wenn kein Activfilter gesetzt ist; wen nich als Rückgabe 1 erhalte, wenn zwar ein Activfilter gesetzt ist, jedoch alle Daten angezeigt werden; wenn ich als Rückgabe eine 2 erhalte, wenn ein Activfilter gesetzt ist und nicht alle Daten angezeigt werden.
Wer kann mir weiter helfen?
Danke und Gruss, Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Feststellen ob Autofilter und Daten eff. gefiltert
16.12.2013 23:15:38
{Boris}
Hi Peter,
auf die Schnelle:
Option Explicit
Sub test()
Dim x As Long
x = 0
With Tabelle1
If Not .AutoFilter Is Nothing Then
If .AutoFilter.FilterMode Then
x = 2
End If
If x = 0 Then x = 1
End If
End With
MsgBox x
End Sub
Ergibt 0 (Filter gar nicht gesetzt), 1 (Filter gesetzt, aber nix gefiltert) oder 2 (Filter gesetzt und auch gefiltert).
VG, Boris

AW: Perfekt! Vielen Dank für die Antworten owT
17.12.2013 11:23:16
Peter

AW: Feststellen ob Autofilter und Daten eff. gefiltert
16.12.2013 23:18:11
Mustafa
Hallo Peter,
so prüfst du schon mal ob ein Autofilter gesetzt ist und ob ein Filterkriterium aktiv ist.
Sub Autofliter_Prüfen()
Dim i As Integer
Dim Wks As Worksheet
Set Wks = Worksheets("Tabelle1")
If Wks.AutoFilterMode = True Then
For i = 1 To Wks.AutoFilter.Filters.Count
If Wks.AutoFilter.Filters(i).On Then
MsgBox ("AAA")
End If
Next i
End If
End Sub

Rückmeldung obs Hilft wäre nett.
Gruß aus der Domstadt Köln.

Anzeige
{Boris} Code ist effektiver orT
16.12.2013 23:33:06
Mustafa
und bringt auch direkt die gewünschten Ergebnisse.
Gruß aus der Domstadt Köln.

299 Forumthreads zu ähnlichen Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
Anzeige
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Anzeige
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Formel - Anzeige der gefilterten Inhalte
Rocky

Hallo Excelfreunde und zweiäugigen unter den Blinden und Einäugigen,
ich möchte gern einen dynamischen "Querfilter" basteln. Mein Ansatz bisher: Ich kopieren die Tabelle und transportiere diese. dann wird in jede Zelle folgende Formel geschrieben:
=WENN(INDIREKT(ADRESSE(SPALTE()+0;ZEILE...
28.11.2008 08:53:12
Thread-ID: 1028554
4 Beiträge
Gefilterte Spalten anzeigen
Gernot

Hallo zusammen,
habe eine Liste mit 64 Spalten und ca. 5.000 datensätzen, die nach mehreren Kriterien
gefiltert wird(Autofilter). Es ist sehr mühsam, die gefilterten Spalten ausfindig zu machen.
Ich stelle mir vor, alle Spalten, in denen der Filter eingeschaltet ist, in eine Combobo...
05.12.2008 22:51:00
Thread-ID: 1030615
6 Beiträge
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich möchte nur gefilterte daten in eine Listbox einlesen. Dieses Makro habe ich hier gefunden:
ClassModule: Artikel
Private Sub Worksheet_Calculate()
Dim iCounter As Integer
lstFilter.Clear
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCoun...
17.01.2009 17:30:00
Thread-ID: 1040940
2 Beiträge
Nur gefilterte Daten in die Listbox
Larissa


Hallo,
ich möchte nur gefilterte Daten in der Listbox anzeigen lassen und kriege das nicht hin.
Ich füge mal meinen Code ein:
Private Sub UserForm_Activate() Dim lLetzte As Long Dim lZeile As Long Dim lLibox As Long Application.ScreenUpdating = False With Me.ListBox1 .Co...
17.01.2009 20:14:35
Thread-ID: 1040981
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
2
6
4
2
3
5
1
6
5
10
1
4
1
5
1
6
6
3
2
8
1
2
2