Thema Datum  Von Nutzer Rating
Antwort
Rot Filterkriterium
14.07.2023 09:56:00 Max
NotSolved
14.07.2023 13:41:34 Gast3204
NotSolved
14.07.2023 22:04:12 Gast22241
NotSolved
15.07.2023 14:08:43 Gast3204
NotSolved
26.07.2023 08:09:10 Max
NotSolved
14.07.2023 21:15:49 Mase
NotSolved
14.07.2023 21:51:46 Gast47193
NotSolved
14.07.2023 23:32:05 Mase
NotSolved
15.07.2023 11:38:09 Gast01
NotSolved
15.07.2023 17:09:03 Mase
NotSolved
15.07.2023 17:47:19 xlKing
NotSolved
15.07.2023 18:12:35 Mase
NotSolved
15.07.2023 18:42:24 xlKing
NotSolved
15.07.2023 18:30:38 xlKing
NotSolved
25.07.2023 12:13:01 Max
NotSolved
25.07.2023 18:16:12 xlKing
NotSolved
25.07.2023 18:19:37 xlKing
NotSolved
26.07.2023 07:59:19 Max
NotSolved
26.07.2023 19:44:48 xlKing
NotSolved
27.07.2023 08:12:41 Max
NotSolved
27.07.2023 18:47:39 xlKing
Solved
28.07.2023 10:45:17 Max
NotSolved

Ansicht des Beitrags:
Von:
Max
Datum:
14.07.2023 09:56:00
Views:
457
Rating: Antwort:
  Ja
Thema:
Filterkriterium

Hi,

hat jm eine Lösung wie man die "*" bei >2 reinbekommt? Also: "*" & ARR & "*"  funktioniert nicht.

 

If UBound(ARR) = 1 Then
    Dim s As String
    va = xlAnd: s = ARR(1)
    Workbooks("Laufende Aufträge.xlsm").Worksheets("Laufende Aufträge").Range("A1:Q1").AutoFilter _
        Field:=5, Criteria1:="*" & s & "*", Operator:=va
        
ElseIf UBound(ARR) = 2 Then
    va = xlOr
    Workbooks("Laufende Aufträge.xlsm").Worksheets("Laufende Aufträge").Range("A1:Q1").AutoFilter _
        Field:=5, Criteria1:="*" & ARR(1) & "*", Operator:=va, Criteria2:="*" & ARR(2) & "*"
        

ElseIf UBound(ARR) > 2 Then
    va = xlFilterValues
    Workbooks("Laufende Aufträge.xlsm").Worksheets("Laufende Aufträge").Range("A1:Q1").AutoFilter _
        Field:=5, Criteria1:= ARR, Operator:=va


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
Rot Filterkriterium
14.07.2023 09:56:00 Max
NotSolved
14.07.2023 13:41:34 Gast3204
NotSolved
14.07.2023 22:04:12 Gast22241
NotSolved
15.07.2023 14:08:43 Gast3204
NotSolved
26.07.2023 08:09:10 Max
NotSolved
14.07.2023 21:15:49 Mase
NotSolved
14.07.2023 21:51:46 Gast47193
NotSolved
14.07.2023 23:32:05 Mase
NotSolved
15.07.2023 11:38:09 Gast01
NotSolved
15.07.2023 17:09:03 Mase
NotSolved
15.07.2023 17:47:19 xlKing
NotSolved
15.07.2023 18:12:35 Mase
NotSolved
15.07.2023 18:42:24 xlKing
NotSolved
15.07.2023 18:30:38 xlKing
NotSolved
25.07.2023 12:13:01 Max
NotSolved
25.07.2023 18:16:12 xlKing
NotSolved
25.07.2023 18:19:37 xlKing
NotSolved
26.07.2023 07:59:19 Max
NotSolved
26.07.2023 19:44:48 xlKing
NotSolved
27.07.2023 08:12:41 Max
NotSolved
27.07.2023 18:47:39 xlKing
Solved
28.07.2023 10:45:17 Max
NotSolved