Mathematische Operationen einer Gleichung finden

[BoskoBiati]

Hallo,


die Datei enthält einen Namen, der auf einem Excel4-Makro (Auswerten) beruht. Kann man auch mit mehr Faktoren machen:



  Rechenoptionen.xlsm (Größe: 34,39 KB / Downloads: 4)

[xlsxvba]

Hallo Edgar,

danke für deine schnellen Antworten! Wirklich super und funktioniert!!
Ich bin allerdings noch nicht ganz dahinter gekommen, wo ich das Makro dazu finden kann als ich sehe keinen Code?
Im Namens-Manager ist zwar "rechen" definiert allerdings dann wiederum mit "=Auswerten(...)".
Ist das eine typische Excel4-Formel oder gibt es die auch als VBA bzw. kann ich die irgendwie bei mir als Standardformel "installieren"?

Falls ich nicht zu viel frage: wie war deine gedankliche Vorgehensweise und wie hast du sie so in Excel dann umgesetzt?

Danke nochmals!!

[BoskoBiati]

Hi,


http://www.excelmexel.de/HTMLExcel/excel4makros.htm
http://www.excelei.de/seiten/xl4_makrofu...gemein.php
http://www.herber.de/excelformeln und bitte suchen .../formeln.html?gruppe=17

Der Rest ist einfache Mathematik. Sieh Dir die Formel mal mit der Formelauswertung an.

Verketten der einzelnen Zahlen mit allen vier Operatoren.
Die letzten beiden Ziffern werden mit allen Operatoren verknüpft, das ergibt vier Möglichkeiten =4Zeilen
Die beiden vorherigen ebenso. Ergibt 4*4=16 Kombinationen/Zeilen
Die nächsten 4*4*4=64 Kombinationen/Zeilen

Mit KÜRZEN und REST kann man diese Abfolgen berechnen.

[xlsxvba]

Hi,

ok besten Dank!
Info Excel4-Makros:

"Makro-Funktionen können Sie nicht in Formeln verwenden, die Sie direkt in eine Excel-Zelle eingeben. Stattdessen müssen Sie der Formel einen Namen geben. Diesen Namen können Sie dann in der Excel-Zelle verwenden." Quelle

Deine Datei ist die Lösung!
Nur rein aus Neugier: mit VBA würde das bestimmt auch irgendwie machbar sein, oder? Würde man da dann ähnlich vorgehen können?

Cheers :)

[BoskoBiati]

Hallo,

geht mit Sicherheit auch mit VBA.

[schauan]

Hallöchen,

das war das, was Fennek im Beitrag #6 schon angedeutet hat.
Im Prinzip dann z.B. so. Den Code könnte man je nach Anzahl der Werte auch noch flexibel gestalten, aber man bräuchte wohl je nach zu erwartender Anzahl Werte ein paar Zeilen mehr ....

Code:

'Variablendeklarationen
'Integer
DefInt I
Sub test()
'Variablendeklarationen
'Variant-Array
Dim arrGR, arrGV
'Operatoren zuweisen
arrGR = Array("+", "-", "*", "/")
'Werte zuweisen
arrGV = Array(2, 3, 4, 5)
'4 Schleifen ueber 4 Operatoren
For icnt4 = 0 To 3
 For icnt3 = 0 To 3
   For icnt2 = 0 To 3
     For icnt1 = 0 To 3
       'Formelstring zusammensetzen
       strFORMEL = arrGV(0) & arrGR(icnt0) & arrGV(1) & arrGR(icnt1) & arrGV(2) & arrGR(icnt2) & arrGV(3)
       'Ergebnis berechnen
       ERG = Application.Evaluate(strFORMEL)
       'Formel und Ergebnis im Direktfenster ausgeben
       Debug.Print strFORMEL & vbTab & ERG
     Next
   Next
 Next
'Ende 4 Schleifen ueber 4 Operatoren
Next
End Sub

[xlsxvba]

Moin!

Danke für die Ergänzung :)
Mit mehr Zeit versuche ich das mal zu erweitern aber das ist eigentlich schon sehr hohes Niveau für mich.

Beste Grüße