Gruppe
Dialog
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?
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