Thema Datum  Von Nutzer Rating
Antwort
08.11.2022 09:37:02 Thorben
NotSolved
Blau Eine Function-Variante via ArrayList
08.11.2022 13:25:30 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase
Datum:
08.11.2022 13:25:30
Views:
416
Rating: Antwort:
  Ja
Thema:
Eine Function-Variante via ArrayList

Vorlage:

 

Code:

Option Explicit


Sub Main()

    Dim vArrayFürAutofilter As Variant
    
    vArrayFürAutofilter = GetFilterCriteria(ThisWorkbook.Worksheets(1).Range("A2:A12"))

End Sub

Function GetFilterCriteria(ByRef rng As Excel.Range) As Variant

    Dim arrLst  As Object
    Dim c       As Excel.Range
    
    Set arrLst = CreateObject("System.Collections.ArrayList")
    
    For Each c In rng
        If UBound(Filter(arrLst.ToArray(), c.Value)) = True Then arrLst.Add c.Value
    Next c
    
    GetFilterCriteria = arrLst.ToArray()
    
End Function

 


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
08.11.2022 09:37:02 Thorben
NotSolved
Blau Eine Function-Variante via ArrayList
08.11.2022 13:25:30 Mase
NotSolved