Eigenschaften Autofilter

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Eigenschaften Autofilter
von: Jan
Geschrieben am: 18.07.2002 - 14:01:54

Hallo,

weiß jemand, wie man prüfen kann,

a) welches Kriterium in einem autofilter aktiviert ist
oder
b) ob ein autofilter überhaupt eingeschaltet ist?

Ich suche irgendwas in der form

If autofilter.field:1.criteria="1" then
Exit Sub
End if


Vielen Dank für jede Hilfe

Jan

nach oben   nach unten

Re: Eigenschaften Autofilter
von: Nayus
Geschrieben am: 18.07.2002 - 15:30:25

-- Prüfen ob der Autofilter gesetzt ist

If ActiveSheet.AutoFilterMode Then
MsgBox ("Autofilter gesetzt!")
Else
MsgBox ("kein Autofilter gesetzt!")
End If

-- Die Kriterien kann man meines Wissens nicht auslesen
-- Setzen allerdings schon

Selection.AutoFilter Field:=1, Criteria1:="1"

nach oben   nach unten

Re: Eigenschaften Autofilter
von: th.heinrich
Geschrieben am: 18.07.2002 - 18:57:36

hallo Jan,

da hat mir Hans mal geholfen, mit dem CODE kannst Du die FILTERKRITERIEN in ein zweites blatt kopieren.
bei manchen FILTERBEDINGUNGEN streikt es leider.
hoffe es hilft Dir weiter.


Option Explicit

Sub FilterCriteria()
   Dim intRow As Integer, intcol As Integer
   Application.Goto Reference:="Kriterien2"
   Selection.ClearContents
   Application.Goto Reference:="Kriterien1"
   Selection.ClearContents
   intRow = Range("A1").CurrentRegion.Rows.Count + 2
   intcol = 1
   Do Until IsEmpty(Cells(1, intcol))
      With ActiveSheet.AutoFilter.Filters(intcol)
         If .On Then
            Cells(intRow, intcol).Value = .Criteria1
         End If
      End With
      intcol = intcol + 1
   Loop
   Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
      Cells(intRow + 1, 1)
Range("a6").CurrentRegion.Select
'CurrentRegion.Select
Selection.Copy
Sheets("tabelle2").Select
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

gruss thomas

p.s. die unschoenen SELECT anweisungen sind von mir.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Eigenschaften Autofilter"