Nur gefilterte Daten in die Listbox

Private Sub UserForm_Activate()
Dim lLetzte  As Long
Dim lZeile   As Long
Dim lLibox   As Long
Application.ScreenUpdating = False
With Me.ListBox1
.ColumnCount = 3
.Font.Size = 9
End With
With Worksheets("Artikel")
lLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
For lZeile = 2 To lLetzte
If .Cells(lZeile, 1) = "" Then Exit For
ListBox1.AddItem
ListBox1.List(lLibox, 0) = .Cells(lZeile, 1).Value
ListBox1.List(lLibox, 1) = .Cells(lZeile, 2).Value
ListBox1.List(lLibox, 2) = .Cells(lZeile, 3).Value
lLibox = lLibox + 1
Next lZeile
End With
ListBox1.ColumnWidths = "30 Pt;130 Pt;40"
Application.ScreenUpdating = True
End Sub

Wäre toll, wenn jemand eine Lösung kennt.
Danke schonmal und lieben Gruß,
Larissa