Laufzeitfehler wenn in Tabelle über Suchfunktion n

Hallo zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_Change() 'Sub SuchenUndFinden() Dim Fund As Range Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Cells.Select Frage = InputBox("wonach soll gesucht werden?") With ActiveSheet.UsedRange Set Fund = .Find(What:=Frage, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) Fund.Activate End With Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

Private Sub TextBox1_Change() Dim Fund As Range Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Frage = InputBox("wonach soll gesucht werden?") With ActiveSheet.UsedRange Set Fund = .Find(What:=Frage, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not Fund Is Nothing Then Fund.Activate Else MsgBox "Nichts gefunden." End If End With Set Fund = Nothing Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler wenn in Tabelle über Suchfunktion n

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler wenn in Tabelle über Suchfunktion n

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread