Autofilter Kriterien variabel befüllen
18.01.2014 01:41:02
Anita
auch lange Archivsuche hat nichts gebracht..
Mein kleines Makro soll einen Autofilter mit Kriterien füllen.
So funktioniert es auch:
Sub EinblendenDerTreffer()
Sheets("Tab1").Range("$A$2:$C$7885").AutoFilter Field:=1, _
Criteria1:=Array("1a", "2b", "3c"), Operator:=xlFilterValues
End Sub
So hätte ich es gern:
Sub EinblendenDerTreffer()
Dim a As Variant
Dim z As Integer
a = ""
For z = 1 To Sheets("Tab2").Cells(Rows.Count, 3).End(xlUp).Row
a = a & Sheets("Tab2").Cells(z, 1).text
'habe es auch schon mit ".value" statt ".text" versucht
Next z
'die Variable a sieht nun exakt so aus: "1a, "2b", "3c"
Sheets("Tab1").Range("$A$2:$C$7885").AutoFilter Field:=1, _
Criteria1:=Array(a), Operator:=xlFilterValues
'die Werte werden nun angezeigt, wenn ich die Maus auf den
'Filterpfeil' halte, aber gefiltert wird nix!
End Sub
Kann mir hierbei jemand helfen?
anita