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
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
Blau Filterkriterium
 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:
xlKing		 Datum:
15.07.2023 18:30:38		 Views:
167		 Rating:
     
Antwort:
  Ja
Thema:
Filterkriterium		 
Sub Testfiler()
  Dim arr(), lngRows As Long, selRng As Range, i As Long
  
  Set selRng = Selection
  ReDim arr(1000)
  
  ActiveSheet.Range("$A$1:$C$1").AutoFilter Field:=5
  lngRows = ActiveSheet.AutoFilter.Range.Rows.Count
  
  For Each c1 In Range("E2:E" & lngRows)
    For Each c2 In selRng
      If c1 Like "*" & c2 & "*" Then
        arr(i) = c1
        i = i + 1
        If i Mod 1000 = 0 Then ReDim Preserve arr(i + 1000)
      End If
    Next c2
  Next c1
  ReDim Preserve arr(i)
  
  ActiveSheet.Range("A1:Q1").AutoFilter Field:=5, Criteria1:=arr, Operator:=xlFilterValues
  
End Sub

 

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
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
Blau Filterkriterium
 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