Mehrspaltiges Listenfeld nach Autofilter füllen

i = ActiveSheet.UsedRange.Rows.Count
With Tabellenblatt.ListDateien
.ColumnCount = I_SysDat
.ColumnHeads = True
.RowSource = SysDat & "!A2:F" & i
.ColumnWidths = "5,8cm;1cm;2cm;2cm;2cm;12cm"
End With

Dies funktioniert auch. Danach habe ich einen Autofilter gesetzt
Selection.AutoFilter field:=2, Criteria1:="Web"

Auf dem Tabellenblatt ist dieser Filter auch vollzogen.

Aber wie bekomme ich die Daten jetzt in mein Listenfeld ???

Falls jemand etwas einfällt wäre ich sehr dankbar

Heinz