Gruppe
Allgemein
Problem
Wenn Excel innerhalb eines Makros einen Suchbegriff in der Tabelle nicht findet, kommt es zu einer Fehlermeldung. Wie kann ich das verhindern?
StandardModule: basMain
Sub FindMsg()
Dim rng As Range
Dim sFind As String
sFind = InputBox("Suchbegriff:", , "Hallo!")
If sFind = "" Then Exit Sub
Set rng = Columns(1).Find( _
what:=sFind, lookat:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!"
Else
MsgBox rng.Address(False, False)
End If
End Sub