ich brauche mal Hilfe zu einem Makro. Ich habe ein Makro um Einträge in einem Tabellenblatt zu finden, also eine Suchfunktion. Das funktioniert. Jetzt mein Problem, da einige Suchbegriffe, es handelt sich hier um Straßennamen, doppelt vorkommen, wird natürlich nur der erste Begriff gefunden. Gibt man danach den Begriff erneut ein, wird wieder nur die erste Übereinstimmung gefunden. Jetzt wäre es schön, wenn bei dem ersten gefundenen Begriff eventuell eine Abfrage kommt, ob es sich um den gesuchten Eintrag handelt. Diese müsste dann mit ja, die Suchfunktion wird beendet, oder mit nein, die Suchfunktion wird weiter fortgeführt, bestätigt werden.
Hier der Code:
Private Sub Suchen_Click()
Unload Me
Dim strSuche As String
Dim erg As Range
strSuche = InputBox("Mindenstens die 2 ersten Buchstaben des Suchbegriffes oder kompletten Suchbegriff eingeben. Groß-/Kleinschreibung ist egal.", "Suchen")
Do While Len(strSuche) <
If strSuche = "" Or Len(strSuche) = 0 Then Exit Sub
strSuche = InputBox("Mindestens die 2 ersten Buchstaben des Suchbegriffes oder kompletten Suchbegriff eingeben. Groß-/Kleinschreibung ist egal.", "Suchen")
Loop
Set erg = Range("A4:R500").Find(what:=strSuche, lookat:=xlPart, LookIn:=xlValues, MatchCase:=False) If erg Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden! Es ist aber nicht 100% sicher, dass der gesuchte Begriff sich nicht in der Tabelle befindet. Überprüfen Sie daher bitte nochmal die Schreibweise und geben den Suchbegriff erneut ein, oder suchen Sie den Begriff manuell in der Tabelle."
Exit Sub
Else
Range(erg.AddressLocal).Activate
Exit Sub
End If
End Sub
Wer kann mir eventuell den vorhanden Code so abändern, das meine Wünsche dort mit eingearbeitet werden?
Danke für die Mühe,
Oliver