Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Autofilterkriterium auslesen

Autofilterkriterium auslesen
23.09.2008 20:47:00
dera
Hallo
Wie kann ich per VBA feststellen mit welchen Kriterium der Autofilter in einer bestimmten Spalte gesetzt wurde.
Oder noch besser,wie kann man alle Filter von Tabelle1 in Tabelle2 anwenden.
dera
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilterkriterium auslesen
24.09.2008 23:54:00
Daniel
Hi
zum Feststellen der aktuellen Filterkriterien auf einem Tabellenblatt hilft dir dieses Makro:

Sub test()
Dim anz As Long
Dim i As Long
Dim sh1 As Worksheet
Set sh1 = ActiveSheet
With ActiveSheet.AutoFilter
Debug.Print "Anzahl Filter: " & .Filters.Count
For i = 1 To .Filters.Count
If .Filters(i).On Then
Debug.Print "Filter " & i & ": Criterium 1: " & .Filters(i).Criteria1
If .Filters(i).Operator  0 Then
Debug.Print "          Criterium 2: " & .Filters(i).Criteria2
Select Case .Filters(i).Operator
Case 1
Debug.Print "          Operator   : UND"
Case 2
Debug.Print "          Operator   : ODER"
End Select
End If
Else
Debug.Print "Filter " & i & ": AUS"
End If
Next
End With
End Sub


die Filtereinstellungen werden im Direktfenster angezeigt.
Gruß, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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