Office: Suche-Funktion in UserForm mit Stichwortsuche und Weitersuchen

Einen wunderschönen guten Tag liebe VBA-Spezialisten, ich brauche mal wieder eure fachliche Hilfe.

Ich arbeite gerade an einer Suchfunktion und komme in der Erweiterung des Codes nicht weiter.
Für die "Suche" befindet sich auf der UserForm1 eine TextBox47 zur Eingabe des Suchbegriffes und ein CommandButton4 zum starten der Suche.
Wurde im ThisWorkbook.Sheets("Hydrantenkontrolle").Range("B7:G552") der Begriff gefunden, dann wird Range("D" & rZelle.Row).Select und das Makro Call TextBox_ComboBox_füllen ausgeführt.
Den nachfolgenden Code habe ich nach langem googeln gefunden und angepasst. Er funktioniert entsprechend meinen Vorstellungen.
Code:

Nun kommt es aber vor, dass der Suchbegriff mehrmals vorhanden ist.
Wie muß der Code in der Erweiterung mit einer "Stichwortsuche" und der erforderlichen "Weitersuche" mit abschließender Mitteilung "Suche beendet" aussehen?

Schon jetzt meinen besten Dank für eure Bemühungen.

LG Thomtek

:)

 

nach folgendem Prinzip.

Code:

 

Hi,

ich würde es nach diesem Prinzip lösen:

Code:

 

Guten Abend Hajo und Beverly,

besten Dank für die schnellen Antworten.
Dank eurer Hilfe entstand der unten aufgeführte Code und folgendes Problem.
Wenn ich Application.EnableEvents = False nicht deaktivieren funktioniert Application.Goto reference:=.Cells(rngZelle.Row - 6, 3) nicht. Aktiviere ich Application.EnableEvents = False,
dann bekomme ich die Fehlermeldung: Laufzeitfehler 91 - Objektvariable oder With-Blockvariable nicht festgelegt bei If rngZelle.Address = strStart.
Wo liegt der Fehler?

LG Thomtek

Code:

 

Hi,

was verstehst du unter "funktioniert Application.Goto reference:=.Cells(rngZelle.Row - 6, 3) nicht"? WAS GENAU funktioniert nicht?

Application.EnableEvents brauchst du m.W. hier überhaupt nicht - in meinem Code gibt es das nicht und er funktioniert (in meiner Beispielmappe) trotzdem korrekt. Was in deiner Mappe das Problem ist, kann ich nicht sagen, da ich sie nicht kenne.

 

Hallo Beverly,

sorry für meine unverständliche Ausdrucksweise. Natürlich funktioniert dein Code. Besten besten Dank dafür!!!
Ich habe Application.EnableEvents nun weggelassen. Füge ich jedoch das Füllen der TextBoxen und ComboBoxen hinzu, dann erscheint die
Fehlermeldung: Laufzeitfehler 91 - Objektvariable oder With-Blockvariable nicht festgelegt. Im Debugger wird If rngZelle.Address = strStart gelb markiert.
Das Füllen der TextBoxen und ComboBoxen ist notwendig. Kann es an der Menge der zu füllenden TextBoxen und ComboBoxen liegen?
Wenn ich nur UserForm1.TextBox1 = Tabelle1.Range("AB2").Value hinzufüge, dann läuft der Code reibungslos durch und die UserForm1.TextBox1 wird gefüllt.
Der Vorgang UserForm1.TextBox1 = Tabelle1.Range("AB2").Value würde ausreichen, denn schreibe ich direkt in die UserForm1.TextBox1, dann wird das Makro Sub TextBox_ComboBox_füllen() ausgeführt.
Wie starte ich in diesem Code das Makro? Allein das Füllen der UserForm1.TextBox1 startet das Makro nicht und Call TextBox_ComboBox_füllen bringt wieder die obere Fehlermeldung.

Bitte bitte, was muß geändert werden?

LG Thomtek
Code:

 

Hi,

wenn sich die Sub TextBox_ComboBox_füllen() in einem allgemeinen Modul befindet, dann würde ich schätzen so (ungetestet da mir die Mappe nicht vorliegt und ich keine Lust/Zeit habe irgendetwas nachzubauen):

Code:

 

Guten Abend Beverly,

ich möchte mich bei dir und natürlich auch bei Hajo für die Bemühungen meines Suche-Problems bedanken und kann mitteilen, ZIEL erreicht.
Da ich das Problem des Füllens der TextBoxen und ComboBoxen in meiner Arbeitsmappe nicht lösen konnte, habe ich alle wichtigen Informationen in die MsgBox integriert.
Nach Beendigung oder Abbruch der Suche werden die TextBoxen und ComboBoxen des entsprechenden Suchbegriffs gefüllt. Diese zufällige Variante ist sogar noch besser.

Interessehalber nachfolgend der funktionierende Code:
Code:

Zufrieden kann ich morgen in den Urlaub starten.

Liebe Grüße von der Insel Rügen
Thomtek