VisualBasic Autofilter Array auslesen

[raumgleita]

Hallo allerseits!

Ich habe ein Autofilter mit mehreren Werten mithilfe eines Arrays gesetzt:

Worksheets("Worksheetname").Range("$A$1:$E$" & lastCell).AutoFilter Field:=1, Criteria1:=myArray(), Operator:=xlFilterValues

Wenn ich versuche die Filter Werte auszulesen bekomme ich nur den letzten Wert zurück:

MsgBox ActiveSheet.AutoFilter.Filters(1).Criteria1

Wie bekomme ich den ganzen Array zurückgeliefert? Oder alle Werte als String?

Gruss
raumgleita

Edit: Ich habs. Hier falls jemand mal das gleiche sucht:

FilterArray = Array()
   FilterArray = ActiveSheet.AutoFilter.Filters(1).Criteria1
   For i = 1 To UBound(FilterArray)
    MsgBox FilterArray(i)
   Next i

 

[docone]

Hi raumgleita,

ich habe dein Code-Tip ausprobiert:

FilterArray = Array()
   FilterArray = ActiveSheet.AutoFilter.Filters(1).Criteria1
   For i = 1 To UBound(FilterArray)
    MsgBox FilterArray(i)
   Next i

Ein Sheet mit eingeschalteten Autofilter ist vorhanden, jedoch ist der Autofilter auf "Alle" eingestellt (die Filter enthalten auch verschiedene Filter-Werte).
Dein Code bekomme ich nicht zum laufen. Ich bekomme einen "Anwendungsfehler - 1004" wenn ich dem FilterArray die Liste aus Criteria1 zuweisen möchte.

Kannst du mir weiterhelfen?

Gruss
docone