Suchen - Weitersuchen
02.02.2004 18:59:34
Holger T.
ich suche mit einem CommandButton in einer UserForm Namen aus einer Tabelle. Funktioniert auch gut.
Jetzt möchte ich jedoch "weitersuchen", möglicherweise kommen Namen in der Tabelle ja mehrfach vor. Leider fällt mir kein funktionierender Code ein.
Ich suche mit folgendem Code:
Private Sub CommandButton6_Click()
Dim strSuchen As Variant
strSuchen = Application.InputBox _
("Geben Sie den gesuchten Namen ein", "Suchen", " ")
If strSuchen = False Then
Exit Sub
ElseIf strSuchen = strSuchen Then
On Error GoTo Errorhandler
Columns(2).Find(What:=strSuchen, LookAt:=xlWhole).Activate
txtName = ActiveCell
txtNr = ActiveCell.Offset(0, -1).Value
txtVorname = ActiveCell.Offset(0, 1).Value
ComboBox1 = ActiveCell.Offset(0, 2).Value
usw.
Zum Weitersuchen habe ich es mit
Columns(2).FindNext(After:=ActiveCell).Activate
txtName=ActiveCell
usw.
versucht, passiert aber nichts !
Hat jemand einen Tip ?
Vielen Dank für die Mühe.
Gruß
Holger T.