---

Hallo!

Ich brauche für ein Makro

Application.Evaluate ExpressionString, simpleEquation, compileOnly

leider gibt es in meinem SW2005 keine Hilfe dazu wozu die Zusatzparameter simpleEquation, compileOnly zu nutzen sind. Könnte mich da mal jemand aufklären?

Beim Testen stellte ich 2 Probleme fest:

1. Popup-Problem

Sub Main()
  Dim D
  On Error Resume Next
  D = Application.Evaluate("10/0", True, True)
  If Err.Number <> 0 Then
    'Fehler beim Berechnen
    Stop
  End If
  On Error GoTo 0
End Sub

Erzeugt eine VB-MsgBox "Division durch 0". Kann man diese MsgBox unterdrücken?

2. Null-Problem

Sub Main()
  Dim D
  On Error Resume Next
  D = Application.Evaluate("10/", True, True)
  If Err.Number <> 0 Then
    'Fehler beim Berechnen
    Stop
  End If
  On Error GoTo 0
End Sub

Ein nicht lösbarer String gibt 0 als Ergebnis zurück, jedoch keine Fehlernummer!? Wie kann man abfangen ob das Ergebnis berechnet werden konnte?

(0 wäre ja auch ein mögliches Eregbnis, daher ist "D <> 0" keine korrekte Prüfung. Außerdem liefert z.B. "10/+1" eine 10 als Ergebnis!??)

Andreas.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP