Thema Datum  Von Nutzer Rating
Antwort
10.10.2018 09:08:26 Sebastian
NotSolved
Blau Filterkriterien Autofilter bei mehr als 2 Kriterien auslesen
 10.10.2018 09:10:21 Sebastian
NotSolved

Ansicht des Beitrags:
Von:
Sebastian		 Datum:
10.10.2018 09:10:21		 Views:
386		 Rating:
     
Antwort:
  Ja
Thema:
Filterkriterien Autofilter bei mehr als 2 Kriterien auslesen		 
Hier der Code in lesbarer Form:

Public Function AF_KRIT(Bereich As Range) As String
 'Liest die Kriterien des Autofilters aus und listet diese in einer Zelle
 'Als Bezug dient die erste Zelle nach dem Spaltentitel: =AF_KRIT(A2)

 Dim s_Filter        As String

    s_Filter = ""
    On Error GoTo Ende
    With Bereich.Parent.AutoFilter
       With .Filters(Bereich.Column - .Range.Column + 1)
          s_Filter = .Criteria1
          Select Case .Operator
          Case xlAnd
             s_Filter = s_Filter & " UND " & .Criteria2
          Case xlOr
             s_Filter = s_Filter & " ODER " & .Criteria2
          End Select
       End With
    End With
Ende:
    AF_KRIT = s_Filter
 End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.10.2018 09:08:26 Sebastian
NotSolved
Blau Filterkriterien Autofilter bei mehr als 2 Kriterien auslesen
 10.10.2018 09:10:21 Sebastian
NotSolved