FindNext Methode
04.03.2005 13:13:56
Reto
Ich habe ein Userform mit welchem ich die Daten einer Tabelle bearbeiten, resp. neue hinzufügen kann.
Ich habe nun eine Textbox gemacht, in welches ein Suchbegriff eingegeben werden kann, nach welchem das Daten-Tabellenblatt durchsucht wird und die gefundenen Daten gleich ins Userform überträgt.
Frage: Wie kann ich die FindNext-Methode einbauen. z.B. über einen Button "weitersuchen". Das bekomme ich einfach nicht hin.
Besten Dank für jegliche Tipps!
---------
Private Sub cmdSuchen_Click()
Application.ScreenUpdating = False
Worksheets("Daten").Select
Dim findtxt As Variant
findtxt = frmFormular.tbSuchen.Value
Worksheets("Daten").Columns("F").Find("*" & findtxt).Activate
dsrow = ActiveCell.Row
frmFormular.DatenLesen
' frmFormular.tbSuchen = ""
Worksheets("Menu").Select
Application.ScreenUpdating = True
End Sub
------------
Anzeige