Hyperlink zum ersten Teilergebnis

Hallo,

ich habe eine Aufgabenliste im Bereich N8:P63
Diese möchte ich in N3 nach Wortfragmenten durchsuchen und zum ersten gefundenen Teilergebnis im Bereich N8:N63 springen.
Dazu habe ich eine Textbox, die mit N3 verknüpft ist.
Wenn ich die Eingabe fertig habe und Enter drücke, soll er dort hin springen.

Also, ich suche nach "Steuer", habe in der Liste:

1. Steuer abgeben
2. Steuerung des Karussells reparieren
3. Kuchen backen
4. Steuer, Kirche, Auto
5. Steuer

Mit folgendem Code springt er aktuell zu Nummer 5, weil er dort den reinen, exakten Begriff findet.

Option Explicit

Private Sub Textbox1_keydown(ByVal keycode As MSForms.ReturnInteger, ByVal shift As Integer)



Dim i As Integer

Dim ws As Worksheet



Set ws = Sheets("Aufgaben")



If keycode = 13 Then

    i = 8

    Do While ws.Cells(i, 14) > ""

        If UCase(ws.Cells(i, 14)) = UCase(TextBox1) Then

            ws.Cells(i, 14).Activate

            Exit Do

        End If

    i = i + 1

    Loop

    

End If



End Sub

Es wäre schön, wenn durch eine Anpassung des Codes zur ersten Aufgabe gesprungen wird, der irgendwie die Buchstaben "Steuer" enthält
Supernett wäre natürlich noch ein Button "Nächster", über den die Suche fortgesetzt wird.

Die Suchfunktion kenne ich natürlich.

Auch eine Buttonlösung für Teil 1 (Hinspringen) und / oder Teil 2 (weitersuchen) wäre in Ordnung.

Oder ein Hyperlink wie dieser:

=HYPERLINK("#N"&MAX(ISTZAHL(FINDEN(N3;N8:N63))*ZEILE(8:63));"Hinspringen")

Hier springt er allerdings merkwürdiger Weise immer zum zweiten Ergebnis von oben, nicht zum ersten?!

Wer kann mir da helfen?

Vielen Dank,

Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Thomas,

hier meine Idee...
https://www.herber.de/bbs/user/165758.xlsm

Ich hatte es zuerst auch mit MsgBox in der Art versucht, dass...
...vor der "Nachster?"-Frage die 1. gefundene Zelle "angesprungen" wird
...bei Klick auf JA dann die nächste gefundene Zelle "angesprungen" wird...usw

Aber...

Eine MsgBox wird standardmäßig immer im Zentrum der Excel-Datei angezeigt.
In Fall deiner Bsp-Datei wird die MsgBox immer genau so angezeigt, dass die gefundene Zelle nicht mehr sichtbar ist.
Es ist zwar möglich, auch MsgBoxen an beliebiger Stelle zu positionieren...aber das ist aufwendig zu programmieren...für mein Interesse daran zu aufwendig^^ :-)

So hab ich einen anderen Weg gesucht + gefunden.

- ich hab die Tabelle so geändert, dass während des Scrollens innerhalb des Blattes die obersten 5 Zeilen fixiert sind und nicht aus dem Sichtbereich verschwinden
- neben der Textbox hab ich einen Button als Ersatz für die MsgBox eingefügt

Jetzt kannst du nach Eingabe in Textbox immer auf den Button klicken, und bei Vorhandensein weiterer Treffer werden auch diese angezeigt.

klitzekleines Problem vielleicht:
Manchmal kommt es vor, dass nach 1x Klick auf Button kein weiterer Treffer angezeigt wird, obwohl noch weitere Treffer vorhanden sind.
Hier hilft: einfach mehrmals auf den Button klicken.

Ich hab nicht herausgefunden, warum nicht direkt bei jedem Buttonklick zum nächsten Treffer gesprungen wird, vermute, es könnte dein weiterer Code, z Bsp in Selection_Change, damit zu tun haben...hab das aber nich weiter geprüft.

Konnte ich denn helfen?

Ciao
Thorsten

Private Sub cmbSearch_Click() sbSearch TextBox1.Text End Sub Private Sub Textbox1_keydown(ByVal keycode As MSForms.ReturnInteger, ByVal shift As Integer) Dim i As Integer Dim ws As Worksheet Set ws = Sheets("Aufgaben") If keycode = 13 Then i = 8 Do While ws.Cells(i, 14) > "" If UCase(ws.Cells(i, 14)) Like "*" & UCase(TextBox1) & "*" Then ws.Cells(i, 14).Select If MsgBox("Gefunden habe ich: " & Chr(10) & Chr(10) & Chr(10) & Chr(10) & ws.Cells(i, 14) & Chr(10) & Chr(10) & Chr(10) & Chr(10) & vbTab & vbTab & vbTab & vbTab & vbTab & "...soll ich weitersuchen?", vbYesNo, "Soll ich weitersuchen?") = vbNo Then Exit Do End If End If i = i + 1 Loop End If End Sub

Private Sub Textbox1_keydown(ByVal keycode As MSForms.ReturnInteger, ByVal shift As Integer) Dim i As Integer Dim ws As Worksheet Set ws = Sheets("Aufgaben") If keycode = 13 Then i = 8 Do While ws.Cells(i, 14) > "" If UCase(ws.Cells(i, 14)) Like "*" & UCase(TextBox1) & "*" Then If MsgBox(ws.Cells(i, 14), vbYesNo, "ist gemeint") = vbYes Then ws.Cells(i, 14).Activate Exit Do End If End If i = i + 1 Loop End If End Sub

Private Sub Textbox1_keydown(ByVal keycode As MSForms.ReturnInteger, ByVal shift As Integer) Dim i As Integer Dim ws As Worksheet Set ws = Sheets("Aufgaben") If keycode = 13 Then i = 8 Do While ws.Cells(i, 14) > "" If UCase(ws.Cells(i, 14)) Like "*" & UCase(TextBox1) & "*" Then ws.Cells(i, 14).Select If MsgBox("Gefunden habe ich: " & Chr(10) & Chr(10) & Chr(10) & Chr(10) & ws.Cells(i, 14) & Chr(10) & Chr(10) & Chr(10) & Chr(10) & vbTab & vbTab & vbTab & vbTab & vbTab & "...soll ich weitersuchen?", vbYesNo, "Soll ich weitersuchen?") = vbNo Then Exit Do End If End If i = i + 1 Loop End If End Sub

Private Sub Textbox1_keydown(ByVal keycode As MSForms.ReturnInteger, ByVal shift As Integer) Dim i As Integer Dim ws As Worksheet Set ws = Sheets("Aufgaben") If keycode = 13 Then i = 8 Do While ws.Cells(i, 14) > "" If UCase(ws.Cells(i, 14)) Like "*" & UCase(TextBox1) & "*" Then ws.Cells(i, 14).Select If MsgBox("", vbYesNo, "weitersuchen?") = vbNo Then Exit Do End If End If i = i + 1 Loop End If End Sub

Beliebteste Forumthreads (12 Monate)

Hyperlink zum ersten Teilergebnis

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hyperlink zum ersten Teilergebnis

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread