Thema Datum  Von Nutzer Rating
Antwort
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
Rot nochmal; anders formuliert ...
 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:
26.07.2023 08:09:10		 Views:
263		 Rating:
     
Antwort:
  Ja
Thema:
nochmal; anders formuliert ...

Hi Gast3204,

hier mal mein Code:

 

Sub FilterAUFTRAGSNR__TEST()

Dim arr As Variant
Dim rng As Range, va As Variant
Dim i As Long, j As Long, k As Long

Set rng = Selection.SpecialCells(xlCellTypeConstants)
ReDim arr(1 To rng.Count)

k = 1
For i = 1 To rng.Areas.Count
    For j = 1 To rng.Areas(i).Cells.Count
        If rng.Areas(i).Cells(j).Value <> "" Then
            arr(k) = rng.Areas(i).Cells(j).Text
            k = k + 1
        End If
    Next j
Next i

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

End If
End Sub

Anforderung:
in dem rot markierten Bereich fehlen die "*". Ähnlich wie bei "ElseIf UBound(arr) = 2 Then".
Bekomme die "*" aber nicht einfach so da rein...

 

Danke für deine Hilfe....

 

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
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
Rot nochmal; anders formuliert ...
 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