Ich lese über eine Suchroutine Werte in eine UserForm-ListBox ein. Nun möchte ich die Anzahl der angezeigten Einträge in einem Label auf der UserForm anzeigen lassen.
Der Code zum Suchen (stammt von Hans):
Private Sub cmdSuchen()
Dim rngFind As Range, rngFirst As Range
lstFind.Clear
Set rngFind = Sheets("CD 1").Columns(1).Find( _
what:=txtSuchen.Text, _
lookat:=xlPart, _
LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
lstFind.AddItem rngFind
Set rngFind = Sheets("CD 1").Columns(1).FindNext(rngFind)
Loop While Not rngFind Is Nothing And _
rngFind.Address <> rngFirst.Address
End Sub
Kennt jemand eine Lösung?
Danke im vorraus.
Gruß Volker