Werte vo einer gefilterten Tabelle in eine Tabellb
25.02.2014 14:34:33
marco
ich versuch mich momentan an einem VBA Code und bekomme ihn nicht hin.
In einer gefilterten Tabelle1 will ich die sichtbare Werte aus der Spalte A in den Autofilter der Tabelle2 übernehmen.
Hierzu habe ich mir folgenden Code zusammengebastellt.
Leider funkt nicht richtig, da der übergebene Wert Sring S für Criteria1:=Arrays ("10,11,6") ausgegeben wird.
Müsste aber nach meiner Meinung, folgend übergeben werden Criteria1:=Arrays ("10", "11", "6")
Wo ist mein fehler?
Sub test3()
Dim wsO As Worksheet
Dim rngZ As Range
Dim s As String
Set wsO = Worksheets("Multifilter")
For Each rngZ In Range("A2:A100").SpecialCells(xlCellTypeVisible)
s = s & rngZ & ","
Next rngZ
'MsgBox s
wsO.Range("$A$9").AutoFilter Field:=1, Criteria1:=Array(s), Operator:=xlFilterValues
End Sub
Anzeige