VBA Find bei Doppelungen
Shizoe89
ich sitze gerade an einer Datenbankabfrage, bei der über eine Suche die passende Zeile in ein UserForm geladen werden soll. Dazu habe ich mittels der Find-Funktion die Zelle ausfindig gemacht, bei welcher der gesuchte Begriff zum ersten Mal vorkommt.
StrSearch = Abfrage.TextBox7.Value
On Error GoTo Error02
Set Zelle = Tabelle2.UsedRange.Find(StrSearch)
IntRow = Zelle.Row
Abfrage.TextBox8.Value = IntRow
On Error GoTo 0
Call FindData
Exit Sub
Error02: MsgBox "Kein Eintrag zu Ihrer Suche gefunden!", vbExclamation, "Fehler
Über FindData() werden die Daten aus der Zeile ausgelesen und in die einzelenen Boxen im UserForm geschrieben. Das klappt auch alles wunderbar.Leider kommt es aber auch vor, dass bestimmte Strings doppelt in der Tabelle vorkommen. So kann der String "Berlin" zum Beispiel als Ort, aber auch als Straße (Berlin!er Straße" vorkommen. Weiterhin haben vielleicht zwei Einträge den selben Nachnamen. Gibt es eine Möglichkeit in der Tabelle sozusagen "weiterzusuchen" um nicht nur den ersten Treffer anzuzeigen, sollte dieser nicht der passende sein?
Ich danke euch schon mal.. :)