Suche abbrechen wenn kein Treffer
02.05.2019 12:32:39
Daniel
Ich habe eine Suchabfrage, die einwandfrei läuft. Nur wenn ich mich vertippe oder der Name nicht in der DB vorhanden ist soll die Suche abgebrochen werden.
Wie muss ich den Code ergänzen?
Set sheetDB = ThisWorkbook.Sheets("DB")
Set sheetSuche = ThisWorkbook.Sheets("Sheet")
suchwort = sheetSuche.Range("J1").Value 'nach dieser Zelle wird gesucht
zieleins = 10 '1 'erste Zielzeile (B25)
zielZwei = 2 'Spalte B
sheetDB.Select
sheetDB.Columns("B:B").Select 'hier stehen die Namen im DB Sheet
suche = Selection.Find(What:=suchwort, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
suchZeile = Application.ActiveCell.Row
letzteGefundeneZeile = 0 'erneutes Suchen vom Anfang verhindern
While suche = True And suchZeile > letzteGefundeneZeile
sheetSuche.Select
sheetSuche.Cells(zieleins, zielZwei).Value = sheetDB.Cells(suchZeile, 2).Value
zieleins = zieleins + 1
sheetDB.Select
letzteGefundeneZeile = suchZeile
Selection.FindNext(After:=ActiveCell).Activate
suchZeile = Application.ActiveCell.Row
Wend
Danke schon mal für eure Hilfe