Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.03.2017 14:23:05 |
itziwunderlich |
|
|
|
29.03.2017 15:08:02 |
itziwunderlich |
|
|
|
29.03.2017 15:28:46 |
BigBen |
|
|
|
29.03.2017 15:36:07 |
BigBen |
|
|
VBA Funktion zum Filterkriterien auslesen funktioniert nicht mehr |
29.03.2017 15:42:54 |
BigBen |
|
|
Von:
BigBen |
Datum:
29.03.2017 15:42:54 |
Views:
596 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
29.03.2017 15:08:02 |
itziwunderlich |
|
|
|
29.03.2017 15:28:46 |
BigBen |
|
|
|
29.03.2017 15:36:07 |
BigBen |
|
|
VBA Funktion zum Filterkriterien auslesen funktioniert nicht mehr |
29.03.2017 15:42:54 |
BigBen |
|
|