Fehlerwert definieren, VBA
04.04.2014 17:47:30
Tim
folgernder Code wirft mir einen Fehler aus, weil es keinen dazugehörigen Datensatz gibt. Wenn dieser Fall eintrifft, soll der Wert entsprechend auf 0 gesetzt werden. Aktuell kann ich den Fehler durch On Error Resume Next überspringen, allerdings werden mir die Werte dann "verschoben" eingetragen. Kann ich den Wert Null bei einem Fehler irgendwie definieren, im Sinne von nvl?
Lasse ich On Error Resume Next weg, wird mir Laufzeitfehler 440 OIP-04108: Invalid row reference angezeigt. Der Debugger springt dann auf Umsatzdaten.MoveNext ( Klar, weil kein Wert gefunden wird). Leider darf ich den kompletten Code nicht posten, daher hier die entsprechende Stelle:
On Error Resume Next
'Umsatz
eintrag(i, gUmsatzSpalte) = Umsatzdaten.Fields(0).Value
Umsatzdaten.MoveNext
Next i
Vielen Dank für Hilfe!