Ich hoffe mir kann jemand helfen. Ich habe folgendes Problem. Wenn ich mit dem folgenden code auf den Button "Suchen" klicke, erscheinen in meinem UserForm1 die gewünschten Angaben. Wenn ich nun erneut drauf klicke sucht es nicht den nächsten ähnlichen oder gleichen Text. Es bleibt immer beim selben ort stehen.
Was muss ich eingeben, damit es bei jedem click zum nächsten Text springt und mir auch den entsprechenden Text in den feldern anzeigt??
Vielen Dank schon im voraus.
Hier der Code den ich jetzt habe:
Private Sub CommandButton2_Click()
Set frm1 = UserForm1
With frm1
Range("A:A").Select
On Error GoTo fehler
Selection.Find(what:=.TextBox1.Value, _
after:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
.TextBox1.Value = TextBox1.Value
.TextBox2.Value = ActiveCell.Offset(0, 2).Value
.TextBox3.Value = ActiveCell.Offset(0, 3).Value
Exit Sub
fehler:
MsgBox "Der Begriff: " & _
.TextBox1.Value & " konnte nicht gefunden werden!"
End With
End Sub