Gruppe
Dialog
Problem
Wie kann ich einen in einer UserForm-TextBox eingegebenen Wert in einem Tabellenblattbereich suchen und alle Fundwerte in einer ListBox der UserForm auflisten lassen?
ClassModule: frmSuchen
Private Sub cmdSuchen_Click()
Dim rngFind As Range, rngFirst As Range
lstFind.Clear
Set rngFind = ActiveSheet.Cells.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 = ActiveSheet.Cells.FindNext(rngFind)
Loop While Not rngFind Is Nothing And _
rngFind.Address <> rngFirst.Address
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmSuchen.Show
End Sub