Office: (Office 2013) Laufzeitfehler 13 abfangen

Hallo, ich bins mal wieder,

in einer alten Datenbank habe ich eine Textspalte in einer Tabelle, die Zahlen enthält. Diese Spalte wird zur Berechnung benötigt.
Beim Testen habe ich bemerkt, dass es möglich ist, auch andere Zeichen einzugeben.
Implizit wird die Spalte konvertiert, wenn nur Zahlen vorkommen. Aber es ist natürlich auch explizit nicht möglich, wenn z.B. "/" enthalten ist.

Folgender Code zum Fehlerabfangen funktioniert nicht:
Code:

Ich erhalte weiterhin die Meldung über Laufzeitfehler 13 (Typen unverträglich.) Gibt es dafür eine funktionierende Lösung?

P.S. Typ in der Tabelle ändern darf ich nicht, auch wenn ichs gern tun würde.

:)

 

Hallo,
vielleicht reicht ja ein Exit Sub *wink.gif*. Code:

Allerdings ist die Überprüfung NACH dem Speichern etwas spät.

 

Sinnvoll wäre einerseits, die Inhalte der Felder (aus dem Formular) vor Beginn der Arithmetik auf NULL zu überprüfen.
Und dann solltest Du (vorläufig) mal ein Stop hinter die Fehler-MsgBox setzen.
Um zu prüfen, wo es tatsächlich hakt. Um dann später die Fehlerbehandlung so zu vollenden, dass sie ihren Namen auch verdient *wink.gif*

 

Wenn eine Tabellenspalte zur Berechnung von Ergebnissen benötigt wird, sollte
der Datentyp auch numerisch sein und kein Text
("Darf ich nicht ändern" -> warum?)

Ansonsten sollte es reichen, den Feld-Inhalt auf numerisch zu prüfen mit

Code:

 

Du könntest dem Steuerelement im Eingabeformular ein
entsprechendes Eingabeformat gönnen (#####...).
Damit können nur Ziffern eingegeben werden.

Alternativ in der Before_Update Ereignisbehandlung auf IsNumeric
prüfen und dem User eine entspr. Mitteilung vor die Augen halten.

[edit] siehe Ralf