Listbox füllen gefilterte Werte

Private Sub CommandButton2_Click()
Dim lzC As Long                 'für Filter
Dim lz As Long                 'für Filter
Dim wks As Worksheet           'für Filter
Dim WertE As String             'für Filter WertE = Ereignis Combobox1
Dim WertA As String             'für Filter WertA = Adressauswahl Combobox2
Set wks = ActiveSheet          'für Filter
WertE = Me.ComboBox1.Value
WertA = Me.TextBox1.Value
Worksheets("Tabelle1").Select
'Anfang Löschung Werte Spalte Z Zusagen
lzC = wks.Cells(Rows.Count, 26).End(xlUp).Row       'Spalte Z = 26 Zusagen
wks.Range("Z2:Z" & lzC).ClearContents
'Ende Löschung Werte Spalte Z Zusagen
With wks
If .AutoFilterMode = True Then
If .FilterMode = True Then .ShowAllData
Selection.AutoFilter
Else
lz = .Cells(Rows.Count, 13).End(xlUp).Row    'LastZell in Tabelle3 Spalte M ermitteln
Range("A1:AC" & lz).Select
Selection.AutoFilter
ActiveSheet.Range("A1:AC" & lz).AutoFilter Field:=WertA, Criteria1:=""
ActiveSheet.Range("A1:AC" & lz).AutoFilter Field:=29, Criteria1:=WertE
End If
End With
'Ende Filtern
'Anfang Listbox1 füllen
Dim vTemp  As Variant
With Sheets("Tabelle1")
vTemp = .Range("A1", .Cells(.Rows.Count, 29).End(xlUp))
End With
With ListBox1
.Font.Size = 7
.MultiSelect = fmMultiSelectMulti
.ColumnWidths = "5,5cm;0cm;0cm;3cm;0cm;0cm;0cm;0cm;0cm;0cm;1,3cm;4cm;0cm;4cm;4cm;0cm;0cm;0cm; _
6cm;0,6cm;0,6cm;0,6cm;0,6cm;0,6cm;0,6cm;1,5cm;0cm;0cm;7cm"
'A     B   C   D   E   F   G   H   I   J     K   L   M   N   O   P   Q  _
R   S   T     U      V      W     X    Y     Z    AA  AB  AC
.ColumnCount = UBound(vTemp, 2)
.List = vTemp
End With
'Ende Listbox1 füllen
End Sub