in einer erweiterten suche gebe ich ein begriff in eine textbox ein und suche danach. die gefundene zeile wird in textfelder aufgeteilt. wenn ich jetzt aber wieder zwei mal den gleichen namen habe möchte ich dann auf den button nächster klicken damit er dann weiter sucht und den nächsten mit dem gleichen namen nimmt. ich hoffe dies ist mal wieder verständlich geschrieben. danke
code für die suche und die aufteilung der zeile in die textboxen:
Private Sub cmdNeueSuche_Click()
If Range("a65536") = "" Then LoLetzte = Range("a65536").End(xlUp).Row
With ActiveSheet.Range("a5:w" & LoLetzte)
Set Found = .Find(formErwSuche.textSuchbegriff, ActiveSheet.Range("a" & LoLetzte), , xlPart, , xlNext)
If Found Is Nothing Then
MsgBox "Es konnte kein Ergebnis erzielt werden"
End If
If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird sub verlassen
textSuchbegriff = Found
'Allgemeiner Bereich
textName = Found.Offset(0, 0)
textVname = Found.Offset(0, 1)
textAnrede = Found.Offset(0, 2)
textEmail = Found.Offset(0, 9)
'Privater Bereich
textPrivatStraße = Found.Offset(0, 3)
textPrivatPLZ = Found.Offset(0, 4)
textPrivatOrt = Found.Offset(0, 5)
textPrivatTelefon = Found.Offset(0, 6)
textPrivatHandy = Found.Offset(0, 7)
textPrivatGebDatum = Found.Offset(0, 8)
textPrivatLand = Found.Offset(0, 10)
textPrivatFax = Found.Offset(0, 11)
'Geschäftlicher Bereich
textGesFirma = Found.Offset(0, 13)
textGesAnsprechpartner = Found.Offset(0, 14)
textGesStraße = Found.Offset(0, 15)
textGesPLZ = Found.Offset(0, 16)
textGesOrt = Found.Offset(0, 17)
textGesTelefon = Found.Offset(0, 18)
textGesHandy = Found.Offset(0, 19)
textGesFax = Found.Offset(0, 20)
textGesWebsite = Found.Offset(0, 21)
textGesLand = Found.Offset(0, 22)
End With
End If
End If