Gruppe
Dialog
Bereich
Label
Thema
Wert in Tabelle suchen und in UserForm ausgeben
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