Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden

Gruppe

TextBox

Problem

Wie kann ich einen Suchbegriff aus einer UserForm-TextBox in Spalte A einer Tabelle suchen lassen und die Fundstelle durch eine MsgBox anzeigen lassen?

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

ClassModule: frmSuchen

Private Sub cmdSuchen_Click()
   Dim rng As Range
   Set rng = Columns(1).Find( _
      what:=txtSuchbegriff.Text, _
      lookat:=xlPart, _
      LookIn:=xlFormulas)
   If rng Is Nothing Then
      MsgBox "Suchbegriff wurde nicht gefunden!"
   Else
      MsgBox "Suchbegriff wurde in Zeile" & rng.Row & " gefunden!"
   End If
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmSuchen.Show
End Sub