Office: Suchfunktion mit mehrfachtreffer

Fufan2 · 19. Juli 2015

Hallo,

ich habe ein Userform erstellt. Darin gibt es eine Textbox als Suchfeld und mit einem CommanButton startet die Suche in einer Tabelle.

Das Suchergebnis wird angezeigt und die Zellinhalte der Zeile in Textboxen übernommen.

Am Ende der Suche gibt es eine Masagebox mit der Abfrage, ob weitergesucht werden soll für den Fall, dess es mehrere Suchergebnisse gibt.

Leider kommt es zu einem Laufzeitfehler, wenn ich weitersuchen bestätigen.

Ich habe meine Testmappe mal angefügt.

Wie muss ich den VBA Code anpassen?

Danke

:)

chris-kaiser · 21. Juli 2015

HI,

Code:

Private Sub CommandButton1_Click()
Dim WkSh As Worksheet
Dim rZelle As Range
Dim i As Integer, Qe As Long
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
If TextBox1.Value "" Then
For i = 1 To 3 Step 2
With WkSh.Columns(i)
Set rZelle = .Find(TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
Do
TextBox2.Value = WkSh.Cells(rZelle.Row, 1).Value
TextBox3.Value = WkSh.Cells(rZelle.Row, 2).Value
TextBox4.Value = WkSh.Cells(rZelle.Row, 3).Value
CheckBox2.Value = WkSh.Cells(rZelle.Row, 4).Value
Qe = MsgBox("Möchten Sie weitersuchen ?", vbYesNo, "Suche")
Set rZelle = .FindNext(rZelle)
Loop While Qe = vbYes And Not rZelle Is Nothing
End If
End With
Next i

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

der Code wird jetzt kürzer *wink.gif*

Fufan2 · 21. Juli 2015

Hallo Chris,
genau so wollte ich es haben.

Vielen Dank für die super Lösung

Office: Suchfunktion mit mehrfachtreffer

Suchfunktion mit mehrfachtreffer

Suchfunktion mit mehrfachtreffer

Suchfunktion mit mehrfachtreffer - Similar Threads - Suchfunktion mehrfachtreffer

Suchfunktion

Suchfunktion erstellen

Suchfunktion für Listbox in Textbox

Suchfunktion beschleunigen

Suchfunktion in Zeile einbinden ?

Suchfunktion innerhalb der Foren

Find,Suchfunktion funktioniert nicht bei Excel 2016