Error zurücksetzen
25.09.2004 20:57:52
Alex
Habe folgendes Problem
On Error GoTo sprung
Cells.Find(What:=ger, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
zeile = ActiveCell.Row
total(typ) = Cells(zeile, totalspalte).Value
contract(typ) = Cells(zeile, contractspalte).Value
warranty(typ) = Cells(zeile, warrantyspalte).Value
sprung:
Err.Clear
Next
Leider wird der Error nicht zurückgesetzt und beim nächsten nicht gefundenen Objekt stoppt das Programm.
Wie kann ich die Fehlermeldung auf 0 zurücksetzen
Danke