Thema Datum  Von Nutzer Rating
Antwort
29.03.2017 14:23:05 itziwunderlich
NotSolved
29.03.2017 15:08:02 itziwunderlich
Solved
29.03.2017 15:28:46 BigBen
NotSolved
29.03.2017 15:36:07 BigBen
NotSolved
Rot VBA Funktion zum Filterkriterien auslesen funktioniert nicht mehr
 29.03.2017 15:42:54 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
29.03.2017 15:42:54		 Views:
593		 Rating:
     
Antwort:
  Ja
Thema:
VBA Funktion zum Filterkriterien auslesen funktioniert nicht mehr

Hallo,

diese Funktion enthält keine logischen Fehler mehr:

Function FilterKriterien(rngNames As Range) As String
 
    'Funktion um die Filterkriterien auszulesen
    'Gibt an nach welchem Kriterium gefiltert wurde
     
    Dim F As String, Fitem As String
    Dim flt As Filter
    Dim rng As Range
    F = ""
    'On Error GoTo Finish
    For Each rng In rngNames.Cells
        With rng.Parent.AutoFilter
            If Intersect(rng, .Range) Is Nothing Then GoTo Finish
            Set flt = .Filters(rng.Column - .Range.Column + 1)
            With .Filters(rng.Column - .Range.Column + 1)
                If .On Then
                    Fitem = rng.Value
                    Fitem = Fitem & .Criteria1
                    If flt.Count > 1 Then
                        Fitem = Fitem & IIf(flt.Operator = xlAnd, " AND ", " OR ") & .Criteria2
                    End If
                    F = F & IIf(F = "", "", " AND ") & Fitem
                End If
            End With
        End With
    Next
Finish:
    FilterKriterien = F
End Function

Der Test-Befehl TESTfilter liefert nun folgende Ausgabe, sofern entsprechender Filter gesetzt ist:

Name=*e* OR <>*bn* AND Zahl>=5

LG, BigBen

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
29.03.2017 14:23:05 itziwunderlich
NotSolved
29.03.2017 15:08:02 itziwunderlich
Solved
29.03.2017 15:28:46 BigBen
NotSolved
29.03.2017 15:36:07 BigBen
NotSolved
Rot VBA Funktion zum Filterkriterien auslesen funktioniert nicht mehr
 29.03.2017 15:42:54 BigBen
NotSolved