Wie übertragen von Kriterien aus dem string-array auf autofilter. VBA-Excel

Ich habe versucht, viele Möglichkeiten, aber keiner von Ihnen arbeitete und was ich versuche zu tun ist, um Daten aus string-array zu autofilter-Kriterien. Ein Teil von meinem code:

crit(21) = """audi"", ""mercedes"""

    Cells.Find(What:="Film", After:=ActiveCell,  LookIn:=xlFormulas,       LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False).Activate
    ActiveCell.Select
    Set zasieg = Range(ActiveCell, ActiveCell.Offset(0, 15))
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$P$200000").AutoFilter Field:=14, Criteria1:=Array(crit(21)), Operator:=xlFilterValues

Dieser Teil des Codes funktioniert in der Schleife und etwas crit(ich) haben 5 Elemente.

InformationsquelleAutor user3683947 | 2015-03-19

Machen array aus der string und verwenden Sie die array:

Sub dural()
    Dim MyString As String, r As Range
    MyString = "Larry,Moe,Curly,Shepp"
    ary = Split(MyString, ",")
    Set r = Range("A1:A14")
    With r
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:=(ary), Operator:=xlFilterValues
    End With
End Sub

EDIT#1:

Ist hier der alternative code (das sollte man nicht verwenden)

Sub DontUseThisCode()
    Dim MyString As String, r As Range
    Dim ary(0 To 3) As String

    ary(0) = "Larry"
    ary(1) = "Moe"
    ary(2) = "Curly"
    ary(3) = "Shepp"
    Set r = Range("A1:A14")
    With r
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:=(ary), Operator:=xlFilterValues
    End With

End Sub

Es funktioniert gut, danke 🙂 Könnten Sie mir sagen, was die ary ist? Es ist nicht deklariert, und es hat keine Art, und ich verstehe es nicht.
ist ein null-basiertes array vom Typ String ...............AutoFilter mag dies für Criteria1
ok, ich verstehe, vielen Dank

InformationsquelleAutor Gary's Student

Beispiel zeigt, wie man einen filter aus einem Bereich (converting-Bereich in ein array), ohne Schleife und verwenden Sie die array den filter setzen. Dieses Beispiel verwendet zwei Tabellenblätter (Tabelle1, Tabelle2) - wo Tabelle1 ist der wichtigste Datensatz gefiltert. Tabelle2 hat die filter-Werte.

Public Sub xFilter()
   Dim rng As Range
   Dim tmp As String
   Dim val()       
   Dim addr As String
   Dim intStart As Long
   Dim intEnd As Long
   Dim intCol As Integer
   Worksheets("Sheet2").Select ' A worksheet with the filter (possible) values.
   Range("$A$2").Select
   Range(Selection, Selection.End(xlDown)).Select
   Set rng = Selection ' get address
   intStart = rng.Row
   intEnd = intStart + (rng.Count - 1)
   intCol = rng.Column ' next column
   Set rng = Range(Cells(intStart, (intCol + 1)), Cells(intEnd, (intCol + 1)))
   ' convert to text
   rng.FormulaR1C1 = "=Text(rc[-1],0)"
   ' convert to array of text
   val = Application.Transpose(rng)
   rng.FormulaR1C1 = "" ' remove formula
   Set rng = Nothing
   Worksheets("Sheet1").Select
   Range("$A$1").Select
   Range(Selection, Selection.End(xlDown)).Select
   Set rng = Selection
   intStart = rng.Row
   intEnd = intStart + (rng.Count - 1)
   intCol = rng.Column ' next column
   Range(Cells(intStart, 1), Cells(intEnd, 2)).AutoFilter
   Range(Cells(intStart, 1), Cells(intEnd, 2)).AutoFilter _
        Field:=1, Criteria1:=val, Operator:=xlFilterValues
End Sub

Ist es möglich diese zu verwenden, und erstellen Sie zwei Benutzer-Eingabe-Variablen, um dies ein universal-makro wie dieses:

InformationsquelleAutor gma

Sieht es aus wie diese beantwortet eine Weile her, aber ich wollte Sie Fragen, eine weitere Frage. Können Sie diese in ein universelles makro über einige user-Eingabe?

Public Sub xFilter()
   Dim rng As Range
   Dim tmp As String
   Dim val()
   Dim addr As String
   Dim intStart As Long
   Dim intEnd As Long
   Dim intCol As Integer
   Dim FilterLocation As Range
   Dim FilterValues As Range

   Set FilterLocation = Application.InputBox("Select Filter Location", "Obtain Range Object", Type:=8)
   Set FilterValues = Application.InputBox("Selection: Filter Criteria", "Obtain Range Object", Type:=8)


   Worksheets(FilterValues.Worksheet.Name).Select ' A worksheet with the filter (possible) values.
   FilterValues.Select
   Range(Selection, Selection.End(xlDown)).Select
   Set rng = Selection ' get address
   intStart = rng.Row
   intEnd = intStart + (rng.Count - 1)
   intCol = rng.Column ' next column
   Set rng = Range(Cells(intStart, (intCol + 1)), Cells(intEnd, (intCol + 1)))
   ' convert to text
   rng.FormulaR1C1 = "=Text(rc[-1],0)"
   ' convert to array of text
   val = Application.Transpose(rng)
   rng.FormulaR1C1 = "" ' remove formula
   Set rng = Nothing
   Worksheets(FilterLocation.Worksheet.Name).Select
   FilterLocation.Select
   Range(Selection, Selection.End(xlDown)).Select
   Set rng = Selection
   intStart = rng.Row
   intEnd = intStart + (rng.Count - 1)
   'intCol = rng.Column ' next column
   'Range(Cells(intStart, 1), Cells(intEnd, 2)).AutoFilter
   Range(Cells(intStart, 1), Cells(intEnd, 2)).AutoFilter _
        Field:=1, Criteria1:=val, Operator:=xlFilterValues
End Sub

Das einzige Problem ist, dass wenn ich Ersatz dieses für die Letzte Zeile bekomme ich eine Fehlermeldung:

Range(Cells(intStart, 1), Cells(intEnd, 2)).AutoFilter _
    Field:=FilterValues.Column, Criteria1:=val, Operator:=xlFilterValues

InformationsquelleAutor cspearsall

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.