Listbox füllen bestimmte Daten

With wksWd
With ListBox2
.Clear
.ColumnCount = 1                                 '6Spalten erforderlich für  _
Zeilen
.ColumnWidths = "3,5cm"
For i = 2 To wksWd.Cells(Rows.Count, "AH").End(xlUp).Row
Li = i - 1
.AddItem
LC = .ListCount - 1
.List(LC, 0) = wksWd.Cells(i, 34) 'Inhabername in Spalte C=3
Next i
End With
End With