|
Hallo ihr Lieben,
ich habe einen Code geschrieben, in dem ich einen Find-Befehl benutze um einer Variable einen Wert zuzuordnen.
Nun kommt es vor, dass der gesuchte Wert nicht vorhanden ist. In diesem Fall möchte ich gerne den Fehler ignorieren und den Variablen (st) den Wert 0 zuordnen.
Ich habe bisher nur gelesen, dass es mit einem If IsNothing Befehl gehen würde, dafür müssten die Variable aber als Objekt definiert sein, so wie ich das verstanden habe. Mit Objekten kenne ich mich nicht aus...
Nun dachte ich, dass kann man vielleicht auch einfacher mit einem On Error - Befehl lösen.
Allerdings weiß ich auch da nicht so recht wie :)
Hier mal mein Code.
nrsuch = ActiveCell.Offset(-2, -1).Value & "1"
zsuch = Worksheets("Maße").Columns("D:D").Find(What:=nrsuch, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
'Wenn hier bei der Suche nach "nrsuch" nicht gefunden wird, dann soll st = 0 sein
st = Worksheets("Maße").Cells(zsuch, 14).Value
Wäre toll, wenn jemand einen Vorschlag hat das Problem zu lösen.
Schöne Grüße,
Claudia
|