Fehlermeldung bei nicht gefunden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 2000
nach unten

Betrifft: Fehlermeldung bei nicht gefunden
von: Marian
Geschrieben am: 12.04.2002 - 09:22:33

Hi Leute,

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

nach oben   nach unten

Re: Fehlermeldung bei nicht gefunden
von: mathias r.
Geschrieben am: 12.04.2002 - 09:42:53

Die Nicht gefunden Fall abfangen mit:

If fc Is Nothing Then
...nicht gefunden
Else
..gefunden
End If

nach oben   nach unten

Re: Fehlermeldung bei nicht gefunden
von: Marian
Geschrieben am: 12.04.2002 - 09:51:28

Yo Danke,

Jetzt geht es. Ich habe die is Nothing Variante schon probiert aber irgendwie hat er gemeckert. Jetzt geht es...

Danke


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung bei nicht gefunden"