Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert in Tabelle suchen und in UserForm ausgeben

Gruppe

Label

Problem

Wie kann ich einen in einer UserForm eingegebenen Suchbegriff in einer Tabelle suchen und dann in einem Label in der UserForm ausgeben lassen?

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

ClassModule: frmSuchen

Private Sub cmdEintragen_Click()
   Dim rng As Range
   Set rng = Columns(1).Find( _
      what:=txtSearch.Text, _
      lookat:=xlWhole, _
      LookIn:=xlValues)
   If rng Is Nothing Then
      lblfound.Caption = "Nicht gefunden!"
   Else
      lblfound.Caption = rng.Offset(1, 0)
   End If
End Sub

Private Sub cmdContinue_Click()
    Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmSuchen.Show
End Sub