Habe eine Suchfunktion, die funktioniert hervoragend aber...
Sie funktioniert nur solange, wie sie Suchbegriffe erhält, die sich auch tatsächlich existieren. Gebe eine falsche Nummer ein, habe ich nen Laufzeitfehler.Habe es versucht mit If iserror(variable) then, aber irgendwie meckert Excel bei der Elsebedingung.Könnt ihr mir helfen?
Private Sub Cmdsuch_Click()
Application.ScreenUpdating = False
suchbegriff = InputBox("gesuchte Herstellungsnummer:")
If suchbegriff = "" Then
MsgBox ("Falsche Eingabe!")
Else
Worksheets("Emailbefundliste").Select
Set fc = Worksheets("emailbefundliste").Columns("a").Find(what:=suchbegriff)
If IsError(fc) Then
MsgBox ("Diese Auftragsnummer existiert nicht!")
Else
ScrSätze.Value = fc.Row 'Hier liegt der Fehler
merke = fc.Row
End If
Worksheets("hgrund").Select
End If
Application.ScreenUpdating = True
End Sub
Danke schon mal für eure Bemühungen!
Gruss Marian