Re: On Error Resume Next ?!!!!
21.11.2002 12:20:37
Gernot
Hallo Boris,hier nun der CodeAuschnitt, in dem das Broblem auftritt:
' Array mit Werten füllen
On Error Resume Next
For i = ezDB To lzDB
If Cells(i, LPspalteDB).Value <> "" Then
Datenfeld_DB(0, i - ezDB) = Cells(i, NummernspalteDB).Value ' Nummer
Datenfeld_DB(1, i - ezDB) = Application.WorksheetFunction.Round(Cells(i, LPspalteDB).Value, 2) ' LP
Datenfeld_DB(2, i - ezDB) = Application.WorksheetFunction.Round(Cells(i, CPspalteDB).Value, 2) ' CP
Datenfeld_DB(3, i - ezDB) = Application.WorksheetFunction.Round(Cells(i, GPRspalteDB).Value, 2) ' GPR
Datenfeld_DB(4, i - ezDB) = Cells(i, Withdrawl).Value ' Withdawl
Datenfeld_DB(5, i - ezDB) = Cells(i, Substitude).Value ' Substitude
Datenfeld_DB(6, i - ezDB) = Cells(i, LPspalteDB).Interior.ColorIndex ' Zellfarbe für Einstufung LP
End If
Next
Ich lese hier aus einer großen Tabelle Positionsnummern mir dazugehörigen Preisen etc. in das mehrdimensionale Array ein. Da sich die Werte teilweise in der Tabelle über Formeln berechnen (SVERWEIS,...) habe ich ab und zu auch Excelfehlermedungen wie #NV oder so in den Tabellen stehen. Damit dann bei der If Abfrage das Makro durchläuft, benutze ich die On Error Resume Next anweisung.
Die Alternative wäre, mir zu überlegen, was alles in diesen Zellen vorkommen kann und dann anstatt Resume Next mit einem Sprung ans Ende der Schleife zu springen, um diesen Datensatz nicht mit einzulesen.
Hoffe, das war jetzt verständlich genug.
Ansonsten halt weiter nachfragen.
Hoffe, Du hast eine Idee
Gernot