Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen

Gruppe

TextBox

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?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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