{"id":55001343,"date":"2022-02-01T00:00:00","date_gmt":"2022-01-31T15:17:50","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1343"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Die_EvalFunktion","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Die_EvalFunktion\/","title":{"rendered":"Die Eval-Funktion"},"content":{"rendered":"

\"\"<\/p>\n

Die Eval-Funktion erlaubt das Auswerten von Ausdrücken, die als Parameter an diese Funktion übergeben werden. Damit können Sie sich verschiedene Anwendungszwecke erschließen – zum Beispiel die Eingabe von Berechnungen in einfache Textfelder oder das Ermitteln von Eigenschaften der Benutzeroberflächenelemente ohne Verwendung des VBA-Editors. Dieser Beitrag zeigt die Möglichkeiten der Eval-Funktion auf.<\/b><\/p>\n

Eval unter VBA<\/h2>\n

Eine der einfachsten Einsatzmöglichkeiten der Eval<\/b>-Funktion ist das Berechnen eines Ausdrucks, den Sie als Parameter der Eval<\/b>-Funktion übergeben. Damit lässt sich dann beispielsweise die Summe aus 1 <\/b>und 2 <\/b>ermitteln:<\/p>\n

Debug.Print<\/span> Eval(\"1+2\")\r\n  3<\/pre>\n
Sie sehen schon am ersten Beispiel, dass wir den zu berechnenden Ausdruck in Anführungszeichen einfassen. Das ist erforderlich, weil die Eval<\/b>-Funktion eigentlich nur Parameter des Typs String <\/b>entgegennimmt. Bei als numerisch zu interpretierenden Parameterwerten, zum Beispiel einfache Zahlenwerte wie 12<\/b>, interpretiert die Funktion dies korrekt. Auch Berechnungen wie 1+2 <\/b>werden noch ohne Angabe von Anführungszeichen als numerische Werte erkannt und toleriert.<\/p>\n
Wenn Sie jedoch beispielsweise Funktionen wie Date() <\/b>aufrufen, erhalten Sie ohne Anführungszeichen eine Fehlermeldung (Laufzeitfehler 2040<\/b>, Der von Ihnen eingegebene Ausdruck enthält eine ungültige Zahl.<\/b>).<\/p>\n
Das Berechnen von 1+2<\/b> ist nun noch kein Hexenwerk, denn das bekommen Sie auch ohne Eval <\/b>hin:<\/p>\n
Debug.Print<\/span> 1+2\r\n  3 <\/pre>\n
Aber vielleicht haben Sie eine Funktion, die zwei Integer<\/b>-Zahlen addiert:<\/p>\n
Public Function <\/span>Addieren(int1 As Integer<\/span>,  int2 As Integer<\/span>) As Integer<\/span>\r\n     Addieren = int1 + int2\r\nEnd Function<\/span><\/pre>\n
Dann können Sie diese ebenfalls per Eval <\/b>aufrufen:<\/p>\n
Public Sub <\/span>EvalAddieren()\r\n     Debug.Print<\/span> Eval(\"Addieren(1,2)\")\r\nEnd Sub<\/span><\/pre>\n
Berechnung per InputBox<\/h2>\n
Wenn Sie dem Benutzer sehr einfach eine Berechnungsmöglichkeit bereitstellen wollen, gelingt dies mit der folgenden Prozedur. Diese fragt per InputBox <\/b>den zu berechnenden Ausdruck ab und gibt das Ergebnis aus:<\/p>\n
Public Sub <\/span>EvalPerInput()\r\n     Dim <\/span>strEval As String<\/span>\r\n     strEval = InputBox(\"Zu berechnender Ausdruck:\")\r\n     MsgBox<\/span> \"Das Ergebnis lautet: \" & vbCrLf<\/span> & vbCrLf<\/span>  & Eval(strEval)\r\nEnd Sub<\/span><\/pre>\n
Ein Beispiel für die Nutzung dieser Prozedur sehen Sie in Bild 1.<\/p>\n
\"Eval<\/p>\n
Bild 1: Eval per InputBox-Funktion<\/span><\/b><\/p>\n
Berechnungen in Textfeldern<\/h2>\n
<\/p>\n
Eine weitere Möglichkeit für den Einsatz der Eval<\/b>-Funktion sind Textfelder. Dazu legen wir ein neues, leeres Formular an und fügen diesem ein Textfeld namens txtAusdruck <\/b>zum Eingeben des zu berechnenden Ausdrucks hinzu. Außerdem legen wir ein zweites Textfeld namens txtErgebnis <\/b>an. Für das Ereignis Nach Aktualisierung <\/b>des Textfeldes txtAusdruck <\/b>hinterlegen wir die folgende Prozedur, welche den Inhalt des Textfeldes txtAusdruck <\/b>mit der Eval<\/b>-Funktion berechnet und in das Textfeld txtErgebnis <\/b>schreibt:<\/p>\n
Private Sub <\/span>txtAusdruck_AfterUpdate()\r\n     Me!txtErgebnis = Eval(Me!txtAusdruck)\r\nEnd Sub<\/span><\/pre>\n
Damit braucht der Benutzer nur den zu berechnenden Ausdruck in das erste Textfeld einzugeben und die Eingabetaste zu betätigen, um den Ausdruck zu berechnen (siehe Bild 2).<\/p>\n
\"Ausdruck<\/p>\n
Bild 2: Ausdruck im Textfeld berechnen<\/span><\/b><\/p>\n
Zugriff auf Formulare, Steuerelemente und ihre Eigenschaften<\/h2>\n
Mit diesem Textfeld können Sie auch einfach auf Formulare, Steuerelemente und ihre Eigenschaften zugreifen. Um beispielsweise den Namen des aktiven Steuerelements zu ermitteln, geben Sie den folgenden Ausdruck ein:<\/p>\n
Screen.ActiveControl.Name<\/pre>\n
Das Ergebnis sehen Sie in Bild 3.<\/p>\n
\"Ausgabe<\/p>\n
Bild 3: Ausgabe des Namens des aktiven Steuerelements<\/span><\/b><\/p>\n
Damit können Sie auch auf andere Formulare oder Steuerelemente zugreifen – Sie müssen lediglich die entsprechende Auflistung und die passenden Objektnamen verwenden.<\/p>\n
Eingebaute VBA-Funktionen nutzen<\/h2>\n
Weiter oben am Beispiel der Funktion Addieren <\/b>haben Sie bereits gesehen, wie Sie eine benutzerdefinierte Funktion mit der Eval<\/b>-Funktion auswerten können. Das gelingt übrigens auch mit den eingebauten VBA-Funktionen, zum Beispiel zum Ermitteln des Datums:<\/p>\n
  Eval(\"Date()\")\r\n05.01.2022<\/pre>\n
Auch das ist wieder nichts Besonderes, denn dieses Ergebnis erhalten Sie auch ohne Eval<\/b>-Funktion:<\/p>\n
  Date()\r\n05.01.2022 <\/pre>\n
Allerdings können Sie die Eval<\/b>-Funktion wiederum nutzen, um das Ergebnis von VBA-Funktionen über das obige Textfeld im Formular zu ermitteln. Sie müssen dann allerdings immer die Klammern angeben, auch wenn die Funktion keine Parameter verwendet. Allein die Eingabe von Date <\/b>ohne Klammern liefert den Fehler aus Bild 4.<\/p>\n
\"Fehler<\/p>\n
Bild 4: Fehler beim Aufruf einer Funktion ohne Klammernpaar<\/span><\/b><\/p>\n
Die Berechnung etwa des Datums von vor zehn Tagen gelingt also nur, wenn Sie wie in Bild 5 die Klammern für die Date<\/b>-Funktion angeben.<\/p>\n
\"Berechnen<\/p>\n
Bild 5: Berechnen des Datums von vor zehn Tagen<\/span><\/b><\/p>\n
Ausdrücke mit Anführungszeichen<\/h2>\n
Wenn Sie Funktionen als Parameter einer Eval<\/b>-Funktion verwenden, deren Parameter wiederum in Anführungszeichen angegeben werden, müssen Sie diese Anführungszeichen verdoppeln. Wenn Sie beispielsweise den ersten Buchstaben einer Zeichenkette ermitteln wollen, fassen sie die Zeichenkette in doppelte Anführungszeichen ein:<\/p>\n
  Eval(\"Left<\/span>(\"\"André\"\", 1)\")\r\nA<\/pre>\n
Erweiterte Möglichkeiten<\/h2>\n
Die Verwendung von Eval <\/b>liefert auch ein paar Möglichkeiten, die über übliche VBA-Ausdrücke hinausgehen. Sie können hier beispielsweise die folgenden beiden Ausdrücke nutzen:<\/p>\n