Ich habe eine Userform geschrieben, mit der ich Kundendaten in eine Tabelle eintragen und verwalten kann.
Ich kann die Daten ändern oder nauch neue anlegen.

http://www.korschenbroich.org/maske.jpg

ich kann aber leider in der listbox nicht suchen ...

Nun habe ich eine zweite Userform suchen angelegt, die ein Suchfeld öffnet:

http://www.korschenbroich.org/maske2.jpg

---------------------------------------- Private Sub CommandButton1_Click()
Dim rng As Range
If txt_suchen.Text = "" Then
Beep
MsgBox "Sie müssen in der ComboBox einen Suchbegriff auswählen!"
Exit Sub
End If
Set rng = Worksheets("Datenblatt").Columns(3) _
.Find(txt_suchen.Text, lookat:=xlWhole, LookIn:=xlValues)

If Not rng Is Nothing Then
'MsgBox "jawoll"
lngZeile = CLng(lsb_Kunden.List(lsb_Kunden.ListIndex, 0))

Else
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
Unload Me

End Sub ------------------------- Ich bekomme es nicht hin, dass das Suchergebnis in der Listbox (siehe Maske) ein angezeigt wird. Was mache ich falsch?