ListObject AutoFilter

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    ListObject AutoFilter

    Guten Morgen,

    ich habe ein Problem. Ich wollte einen AutoFilter mit einem Array im Criteria1 befüllen. (Zumindest hat mir das die Aufzeichnung des Makro Recorders so gezeigt).

    das sagt der Makro Recorder

    Visual Basic-Quellcode

    1. ActiveSheet.ListObjects("data").Range.AutoFilter Field:=1, Criteria1:=Array("eg", "eu", "ug"), Operator:=xlFilterValues


    So hab ich es erfolglos probiert.

    Visual Basic-Quellcode

    1. ​
    2. fill = Trim(Replace("""" & Replace(Join(arr(), ", "), ", ", """, """) & """", """""" & ",", ""))
    3. Debug.Print "Array(" & fill & ")"
    5. Array("eg", "ug", "eu")
    7. Hab es dann sowohl so
    8. ws.ListObjects("data").Range.AutoFilter Field:=1, Criteria1:=Array(fill), Operator:=xlFilterValues
    10. als auch so probiert
    11. ws.ListObjects("data").Range.AutoFilter Field:=1, Criteria1:="Array(" & fill & ")", Operator:=xlFilterValues


    Weiß jemand wie der Array da hinein muss, damit es wie beim Recorder greift?

    Freue mich über jede Antwort.

    Ich weiß noch nicht mal, was man im Excel-Sheet machen muss, um diese Makroaufzeichnung zu erreichen, weil ich nicht weiß, was die Blatt-Funktion zur Erstellung von ListObjects ist. Aber: wie ist arr definiert?

    Visual Basic-Quellcode

    1. Dim arr() As Variant
    2. arr = Array("eu", "eg", "ug")
    So vielleicht?
    Zeile#8 kommt nahe an das Makroergebnis ran, aber das funktioniert deshalb nicht, weil Deine Fill-Zeile einen String ergibt.
    Makrorecorder: :=Array("eg", "eu", "ug"): drei Strings als Parameter
    effektiv Deine Zeile: :=Array(""eg", "eu", "ug"")ein String mit mehreren Anführungszeichen im Text
    Kannst Du nicht einfach arr anstelle übergeben, also schreiben:

    Visual Basic-Quellcode

    1. ws.ListObjects("data").Range.AutoFilter Field:=1, Criteria1:=arr, Operator:=xlFilterValues

    Wenn arr ein Variant-Array ist, dann ggf. vorher noch in ein String-Array umwandeln, keine Ahnung wie empfindlich VBA da ist. Aber eigentlich müsste es auch so gehen, da Array(bla, bla, bla) ja ein Variant-Array zurückgibt/erzeugt und sowas der AutoFilter haben will.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed

    Hast recht ich habe es nun so. Das einzige was ich nicht geregelt bekomme ich ein Laufzeitfehler 5 oder 9 wenn der Array leer ist. Ich wollte auf IsEmpty oder IsNull prüfen aber das klappt irgendwie nicht. Benötige ich dafür eine Hilfsfunktion? Oder kann ich das auch irgendwie anders lösen als mit einem GoTo?

    Visual Basic-Quellcode

    1. Option Explicit
    3. Public Sub SortLo()
    4. Dim wb As Workbook
    5. Dim ws As Worksheet
    6. Dim sh As Shape
    7. Dim i As Integer
    8. Dim arr() As Variant
    10. Set wb = ActiveWorkbook
    11. Set ws = wb.ActiveSheet
    13. With Application
    14. .Calculation = xlCalculationManual
    15. .ScreenUpdating = False
    16. End With
    18. ws.ListObjects("data").Range.AutoFilter Field:=1
    20. For Each sh In ws.Shapes
    21. For i = 0 To GetDict.Count - 1
    22. If Right(sh.Name, 2) = GetDict.Items(i) Then
    23. If ws.Shapes(sh.Name).ControlFormat.Value = xlOn Then
    24. ReDim Preserve arr(i)
    25. arr(i) = GetDict.Items(i)
    26. End If
    27. End If
    28. Next i
    29. Next sh
    31. On Error GoTo recover
    32. recover:
    34. Select Case Err.Number
    35. Case 5, 9
    36. ws.ListObjects("data").Range.AutoFilter Field:=1
    37. Case Else
    38. ws.ListObjects("data").Range.AutoFilter Field:=1, Criteria1:=arr, Operator:=xlFilterValues
    39. End Select
    41. With Application
    42. .Calculation = xlCalculationAutomatic
    43. .ScreenUpdating = True
    44. End With
    45. End Sub

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Sam85“ ()

    Abgewandelt von einem alten Thread:

    Visual Basic-Quellcode

    1. Sub Makro1()
    2. Dim InitializedArray(1) As Variant
    3. Dim EmptyArray() As Variant
    4. MsgBox ArrayIsEmpty(InitializedArray)
    5. MsgBox ArrayIsEmpty(EmptyArray)
    6. End Sub
    8. Function ArrayIsEmpty(Arr As Variant)
    9. ArrayIsEmpty = SafeUbound(Arr) = -1
    10. End Function
    12. Function SafeUbound(Arr As Variant) As Long
    13. On Error GoTo ErrorOccured
    14. Dim IsInitialized As Boolean
    15. IsInitialized = IsArray(Arr) And Not IsError(LBound(Arr, 1)) And LBound(Arr, 1) <= UBound(Arr, 1)
    16. If IsInitialized Then
    17. SafeUbound = UBound(Arr)
    18. Else
    19. SafeUbound = -1
    20. End If
    21. Exit Function
    22. ErrorOccured:
    23. SafeUbound = -1
    24. End Function
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende