Evaluate mit deutschen Formeln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Niclaus;
Daniel hat ja bereits AUSWERTEN erwähnt, nur hat er sich da etwas geirrt:
&bullet; Das Auswerten entspricht dem Evaluate und verarbeitet als Excelfunktion deutsche Formeltexte.
Das stimmt nicht ganz. Evaluate ist eine vbFkt und verarbeitet bekanntlich nur FmlTexte in US-Original-Notation (ggf auch französische), AUSWERTEN ist eine alte XLM-Fkt in der uralten MakroSprache von Xl4, was wohl auch das Folgende erklärt.
&bullet; Warum sie nicht als Normale Excelformel zur verfügung steht sondern nur als Name, kann ich dir jetzt auch nicht sagen, das hat MS halt so programmiert.
Ja, vor ca 25 Jahren für Xl4! Mit VBA hat man idR mehr Möglichkeiten und die alten MakroBlätter wdn nur aus Kompatibilitätsgründen noch mitgeführt, erfordern aber wg der Xl-Neugestaltung nun Speicherung der sie verwendenden Datei als .xlsm/b!
&bullet; eine Kleine Einschränkung ist hier die festlegung auf den Zellbezug, dh die Zelle aus dem der Formeltext gelesen wird.
Das ist schlicht falsch! Der FmlText kann auch direkt in der benannten Fml angegeben wdn, zB so: FmlTextAuswert → =AUSWERTEN("SUMME(A10:A12)")
&bullet; Du kannst hier zwar mit relativen Zellbezügen arbeiten (Text aus linker/rechter Nachbarzelle), was für das meiste ausreichen sollte, aber du kannst halt den Zellbezug nicht mehr frei festlegen und müsstest für Varianten im Zellbezug neue Namen anlegen.
Auch falsch! Man könnte die BereichsAngabe des FmlTextes auch dynamisch gestalten. Nur ist nicht immer alles möglich, weil auch benannte Fmln von den Zellen abhängen, in die ihre Namen als Fmln eingetragen wdn. Sie unterliegen damit der diesbzgl Xl-Steuerung.
Wenn du aber zB mit einer UDF einen dt FmlText auf Evaluate-Basis auswerten willst, kommt es darauf an, ob der auch als echte Fml vorliegt. Dann könnte man nämlich auch die Übersetzung ins Original auslesen und die, ggf modifiziert, verwenden. Ein reiner Text wird nicht übersetzt und die Tricks, das doch zu erreichen, fktionieren nur in einer SubProzedur, weil zumindest temporär eine echte Fml, benannt oder in einer Zelle, angelegt wdn muss.
Man kann einen solchen FmlText aber auch als echte Fml in eine Auswertungs-UDF einbinden, wobei das Ergebnis dieser Fml natürlich irrelevant ist. Die UDF liest aber ihre eigene Fml aus und isoliert daraus dann die übersetzte, die dann von ihr als Text per Evaluate berechnet wdn kann. Das ist aber ziemlich anspruchsvoll und ggf nichts für das von dir angegebene VBA-Level.
Übrigens habe ich mich schon vor vielen Jahren mit derartiger Problematik beschäftigt — ganz ohne Evaluate. Das könntest du natürlich auch versuchen, wäre aber 'ne HeidenArbeit. Sinnvoller wäre es hier allemal, eine Notationsform zu entwickeln, die einen linear-formalen analytischen Algorithmus aufbaut, der dann Schritt-für-Schritt berechnet wird. Das beschäftigt mich zZ, wird aber noch Wochen, Monate oder gar Jahre dauern…
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …

Option Compare Text Function auswertenNEU(Zelle As Range) xx = Zelle.Value xx = Replace(xx, ";", ",") xx = Replace(xx, "WENNS", "IFS") xx = Replace(xx, "WENN", "IF") xx = Replace(xx, "SUMMENPRODUKT", "SUMPRODUCT") xx = Replace(xx, "SUMME", "SUM") xx = Replace(xx, "ANZAHL2", "COUNTA") xx = Replace(xx, "ANZAHL", "COUNT") xx = Replace(xx, "MITTELWERT", "AVERAGE") auswertenNEU = Evaluate(xx) End Function

…Niclaus;
ich weiß zwar nicht, wo und wie die Fmln vorliegen, vermutlich als Doku, aber du solltest die Fmln nicht als einfachen Text eintragen, sondern per Fml aus ihrer 1.AnwendungsZelle* holen. Dabei kann man, wie im Bsp unten gezeigt, beide NotationsFormen, die lokale (zwecks Doku) und das US-Original (zwecks Evaluierung) per MatrixFml in einer VerbundZelle unterbringen (natürlich auch beide in ExtraZellen). Hier ist deshalb nur die lokale Form zu sehen (die andere wird im FmlTeil des Bsps nur zur Kontrolle angezeigt).
Diese Fmln sind natürlich ebenfalls Texte, deren OriginalForm aber mit einer auf der vbFkt Evaluate basierenden UDF wie hier auch in einer ZellFml oder direkt in einer SubProzedur ausgewertet wdn kann. Dabei müssen ggf (relative) BezugsAdressen angepasst wdn, was hier mit WECHSELN geschieht.
Falls nicht auf EinsatzZellen verlinkt wdn kann bzw soll, muss die Fml mit irgendwelchen BezugsAdressen als Fml (nicht als FmlText!) ebenfalls in der Doku vor ihrem Doku-Text stehen. Die Fml-AusleseFml bezieht sich dann auf diese Zelle, die kein sinnvolles Ergebnis anzeigen muss (kann auch ein Fehlerwert sein!).
* Die im nachfolgd gezeigten Bsp verwendete UDF TextOf ist dafür (und Anderes) wahrscheinl besser geeignet als die neue Xl-Fkt FORMELTEXT (ab Xl2013/16).

⇒SUMMENPRODUKT(H2:H4;I2:I4)

Muster

Die gleiche Fml in US-Original-No-

tation ist in der 2.Zelle des obigen

Zellverbunds verborgen. Dazu wur-

140

de erst die unten gezeigte Matrix-

fml über beide Zellen eingegeben

und dann das Format der Muster-

Verbundzelle mit dem Formatpin-

770

sel auf beide Zellen übertragen.

H1:I1: {=WAHL(SPALTE(A1:B1);TextOf(H5;2);TextOf(H5;0))}

I1: =SUMPRODUCT(H2:H4,I2:I4)

I5;I9:=TxEval(T(JETZT())&WECHSELN(I$1;"H2:H4,I2:I4";ADRESSE(ZEILE(H2);SPALTE(H2);4)&":"&ADRESSE

(ZEILE(H4);SPALTE(H4);4)&","&ADRESSE(ZEILE(I2);SPALTE(I2);4)&":"&ADRESSE(ZEILE(I4);SPALTE(I4);4)))

Die beiden hier verwendeten UDFs sind im Herber-ForumsArchiv enthalten. Die aktuelle Version von TextOf (mit HLink-TeilTexte-AusleseZusatz) ist in einer kürzlich für Paulo hochgeladenen TextDatei zu finden (hier können aber auch andere UDFs verwendet wdn, die beide oder gar alle 5 FmlVarianten auslesen können). TxEval benötigst du nur, wenn du FmlTexte in ZellFmln evaluieren willst. Aber auch in diesem Fall könntest du eine Trivial-Umsetzung der vbFkt verwenden. In einer SubProzedur kannst du BezugsAdressen auch mit vbFkt (bzw -Methode) Replace austauschen.
Gruß, Luc :-?
PS: Falls du hier noch antworten willst, musst du über einen Link zum Forums-Thread verfügen oder ihn dir selbst zusammenstellen (ist nicht schwer!), solange er noch im unsichtbaren Teil des Forums vorhanden ist. In einigen Tagen wird das nicht mehr der Fall sein. Ansonsten kann ich nur hoffen, dass du auch noch im Archiv nachschaust, aber dort (auch über DEINE BEITRÄGE erreichbar) kann man nicht antworten. Du hast dir halt zuviel Zeit gelassen…

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

56 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Evaluate mit deutschen Formeln

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

56 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread