Laufzeitfehler wenn in Tabelle über Suchfunktion n
27.06.2019 15:37:33
alex
ich habe in meiner Tabelle eine TextBox für eine Suchfunktion. Sofern etwas gefunden wird, wird dies auch angezeigt. Wenn allerdings nichts gefunden wird, kommt ein Laufzeitfehler'91'
Frage: Wie muss ich den Makro erweitern, dass ein Message Fenster erscheint, dass der gesuchte Begriff nicht in der Tabelle enthalten ist?
Für einen besseren Überblick, habe ich den Makro mal mit angehangen. Vielen Dank an euch im Voraus und beste Grüße
Makro:
Private Sub TextBox1_Change()
'Sub SuchenUndFinden()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Cells.Select
Frage = InputBox("wonach soll gesucht werden?")
Selection.Find(What:=Frage, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
'End Sub
End Sub
Anzeige