per Formel, ob gefiltert



Excel-Version: 2002
  

Re: per Formel, ob gefiltert

von: sam
Geschrieben am: 16.04.2002 - 20:21:27


hi,

ich habe für dich eine Funktion geschrieben, die du leicht anwenden kannst:
Schreib in A3: =AutofilterKriterien()

und kopiere vorher in einem Modul diese Funktion:


Function AutofilterKriterien() As String
 Dim As Filter, kriterium As String
 On Error GoTo Fehlerbehandlung
 Application.Volatile
 For Each f In ActiveSheet.AutoFilter.Filters
   If f.On Then kriterium = kriterium & " / " & f.Criteria1
 Next f
 
 AutofilterKriterien = Right(kriterium, Len(kriterium) - 3)
 Exit Function
Fehlerbehandlung:
  Exit Function
End Function

Viel Spaß,
Sam

nach unten

Betrifft: per Formel, ob gefiltert
von: Carsten
Geschrieben am: 16.04.2002 - 18:03:28

Hallo,

ich benötige mal wieder einen Experten-Rat:

In einer Tabelle stehen in A6 bis D1000 die Daten.

Nun möchte ich per Formel (in A3) herausbekommen, ob die Spalte A (ab A6) gefiltert ist(per Autofilter).
Ist sie gefiltert, soll der Kriterium nach dem gefiltert wurde, in A3 ausgegeben werden.
Wurde Spalte A nicht gefiltert, soll die Zelle A3 leer bleiben.


Weiß jemand von Euch eine Lösung?


Vielen Dank, Carsten.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "per Formel, ob gefiltert"