Thema Datum  Von Nutzer Rating
Antwort
26.02.2017 13:17:44 Olli
NotSolved
Blau Excel VBA Autofilter Index auslesen?
 26.02.2017 16:19:35 Mackie
NotSolved
26.02.2017 20:34:44 Olli
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
26.02.2017 16:19:35		 Views:
875		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA Autofilter Index auslesen?

 Public Function AF_KRIT(Bereich As Range) As String
    'Liest die Kriterien des Autofilters aus und listet diese in einer Zelle
    'Erweitert auf Mehrfachauswahl in xl2007 15.08.2009/t.ramel@mvps.org
    '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)
            If .Count > 2 Then
                s_Filter = Join(.Criteria1, "; ")
            Else
                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 If
        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
26.02.2017 13:17:44 Olli
NotSolved
Blau Excel VBA Autofilter Index auslesen?
 26.02.2017 16:19:35 Mackie
NotSolved
26.02.2017 20:34:44 Olli
NotSolved