ich habe das folgende Makro geschrieben. es funktioniert auch super. leider habe ich nur ein problem. wenn ein wert nicht gefunden wird, dann funktioniert das makro nicht mehr wegen laufzeitfehler 91. wie bekomme ich es hin, dass ein fehlermeldung ausgespuckt wird? Danke im voraus.
Sub suchen()
Dim Suchwert As String
Sheets("Suchen").Select
Suchwert = Cells(4, 6).Value
Sheets("Stammdaten").Select
Cells.Find(What:=Suchwert, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Selection.EntireRow.Copy
Sheets("Suchen").Select
Rows("10:10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Cells(4, 6).Select
End Sub