Gruppe
Dialog
Problem
Wie kann ich einen in einer UserForm eingegebenen Suchbegriff in einer Tabelle suchen und dann in einem Label in der UserForm ausgeben lassen?
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