find next ohne Schleife, sondern auf click
Fritz
Mit meinem untenstehenden Makro finde ich den Eintrag, den ich in die Textbox eingegeben habe.
Jetzt möchte ich aber (z.B. wenn ein gefundener Nachname öfter vorkommt) mit find next auf Click auf den CommandButton "Weitersuchen" den nächsten Wert des in die Textbox eingebenen strings ansteuern. Das kriege ich nicht gebacken.
Kann mir vielleicht jemand einen Hinweis geben, wie ich da weiter komme.
Hier der dem Aufbau nach von H. Herbers CD entnommene Code.
in der Recherche habe ich gesucht und auch in meiner Literatur, leider ohne ERfolg.
Vielen Dank für Eure Hilfe.
Grüße, Fritz
Sub Suchen()
Sheets("Daten").Activate
Dim sbegriff As String
Dim gzelle As Range
sbegriff = frmBasis.txtSuchen.Value
Set gzelle = Sheets("Daten").Columns("A:D").Find(what:=sbegriff, LookIn:=xlValues, lookat:=xlWhole)
If sbegriff = "" Then Exit Sub
If gzelle Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
With frmBasis.txtSuchen
.SetFocus
.SelStart = 0
.SelLength = Len(frmBasis.txtSuchen)
End With
Exit Sub
End If
gzelle.Select
FelderFuellen
With frmBasis.txtSuchen
.Value = ""
.SetFocus
End With
End Sub