Office: Suchfunktion mit Button für Weitersuche

Liebes Forum

Seit Monaten plage ich mich mit einem wohl völlig trivialen Problem. Ich möchte in einer Userform mittels Suchbegriff in TextBox sowie Bestätigung durch CommandButton einen Tabelleneintrag suchen und diesen selektieren. Sofern Mehrfachtreffer bestehen oder bei der Sucheingabe von beispielsweise "m" oder "a" soll bei einem weiteren Klick auf den Button einfach der nächste Treffer markiert werden analog ctrl-F-Suche. Ziemlich simpel, aber ich krieg es einfach nicht gebacken! Hier ein Code-Fragement:

Allerdings will ich eben nicht, dass sich eine MsgBox dazwischen stellt sondern einfach zum nächsten Treffer gesprungen wird. Kann mir bei diesem lapidaren Problem jemand helfen? Vorab vielen herzlichen Dank!

:)

 

Hallo,

ich löse das immer so, dass ich alle Treffer in ein Listenfeld eintragen lasse. Dort kann man dann eine Feinauswahl vornehmen.

 

Danke Dieter!

Allerdings hätte ich einfach wirklich nur sehr gerne die Möglichkeit einfach weiterzuspringen wie bei der ctrl-F-Suche ebenfalls.

Hoffe, mir kann hier jemand helfen! Habe Stunden und Tage darauf verbraten im Web etwas zu finden - erfolglos...

 

Hallo,

ich weiß nicht, ob dir das so reicht, mit diesem Quelltext erreichst du die Suche und weiter Suche mit einer Schaltfläche:

Code:

 

Lieber Klaus-Dieter

Herzlicheb Dank! Deine Lösung würde absolut ausreichen und trifft meine Intention vollends! Meines wissens jedoch, kann mit after:=activecell nur in Spalte "A" nach Begriffen gesucht werden - ich müsste insbesondere in Spalte "E" die Suchabfrage starten!

Konnte den Code allerdings noch nicht testen...

 

Hallo,

den Zellbezug (Range) kannst du beliebig definieren.

 

Lieber Klaus-Dieter

Du müsstes mir nochmals zu Hilfe eilen. Dein Code ist tadellos - jedoch möchte ich die entsprechende Row auch selektieren können. Sofern dies funktioniert, hätte ich dann auch die Variation, in einer Listbox den gesuchten Begriff zu markieren.

Wie nachfolgender Code (welcher leider eine Fehlermeldung hervorruft):

Private Sub CommandButton1_Click()

Dim c As Range

Set c = Worksheets("Tabelle1").Range("E1:E20").Find(what:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

If Not c Is Nothing Then
c.EntireRow.Select
End If

End Sub

 

Als Nachtrag und zur Spezifikation:

Der Originalcode sieht so aus:

Dim SearchContent As Range
On Error GoTo Alert

With Sheets("Clients").Range("E3:E500" & Range("A65536").End(xlUp).Row)

Set SearchContent = .Find(what:=UF_Dash.Dashboard.Pages(2).tbSearch_List, LookIn:=xlValues)

If UF_Dash.Dashboard.Pages(2).tbSearch_List = "" Then

Call ErrorNoSearchMatch

ElseIf Not SearchContent Is Nothing Then

UF_Dash.Dashboard.Pages(2).lbListClients.ListIndex = SearchContent.Row - 3

Else

Call ErrorNoSearchMatch

End If

End With

Exit Sub

Alert:
Call ErrorNoSearchMatch

Nun soll beim nächsten Click auf die gleiche Schaltfläche, welche die Prozedur ausführt, einfach zum nächsten Treffer gesprungen werden. Dies in einer Endlaufschleife. Ich habe bereits einen Code der genau dies vollbringt, allerdings wird dabei mittels msgbox und der Frage ob weitergesucht werden soll, die Schleife unterbrochen. Doch genau dies möchte ich verhindern.

 

Moin
Hab deinen letzten Code nicht ausgewertet.
versuch es mal so.
Code:

Vlt. hilft es dir weiter.
gruss hary

 

Vlt. hilft es dir weiter.
gruss hary

Lieber Hary

Mir wurde schwarz vor Augen als ich Deinen Code implementierte und die den Sub startete...

Unglaublich! Es funktioniert einwandfrei! Und dies mit ein paar Zeilen Code! Da lausen mich echt all Affen dieser Erde!

Vielen herzlichen Dank!!! Stunden, Tage, Wochen und gar Monate der Suche enden mit heutigem Tag! Danke 1000!!!

Auch Dir Dieter-Klaus vielen Dank! Ich hatte mich unkonkret formuliert und bitte Dich um Entschuldigung!

Der blanke Wahnsinn! Liebe Grüsse aus der Schweiz - Nik

 

Nur als Nachtrag für all die ebenfalls auf der Suche nach einer einfachen Suchfunktion sind:

Das Change-Ereignis der Textbox für die Eingabe des Suchwortes muss wie folgt lauten um nicht darauf angewiesen zu sein, dass der Anwender in die richtige Zelle anwählt:

Worksheets("Tabelle1").Range("E1").Activate

und dann klappt alles fehlerfrei. Ein Momentum des Triumphs und Glückseligkeit! Danke liebes Forum!!!