Listbox

Sub Liste_aktualisieren(varSuchbegriff)
Dim objWksMatrix As Worksheet
Dim objdaten As Range, objZelle As Range
Dim strAdresse1 As String
Set objWksMatrix = Worksheets("Tabelle1")
With objWksMatrix
Set objdaten = .Range(.Cells(1, 1), .Cells(65536, 4).End(xlUp))
End With
Set objZelle = objdaten.Find(what:=varSuchbegriff, LookIn:=xlValues, lookat:=xlPart)
If objZelle Is Nothing Then
MsgBox varSuchbegriff & ": nicht gefunden"
Me.TextBox1 = ""
Else
strAdresse1 = objZelle.Address
Me.ListBox1.Clear
Do
With Me.ListBox1
.AddItem objZelle.Offset(0, -1).Value
.List(.ListCount - 1, 1) = objZelle.Value
End With
Set objZelle = objdaten.FindNext(objZelle)
Loop Until objZelle.Address = strAdresse1
End If
End Sub