Thema Datum  Von Nutzer Rating
Antwort
24.02.2009 17:33:51 Dan000
NotSolved
Blau Aw:Werte aus VBA in Formel einer Excel Zelle setzt
24.02.2009 18:16:38 Holger
NotSolved
24.02.2009 18:25:26 Dan000
NotSolved
25.02.2009 09:18:38 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger
Datum:
24.02.2009 18:16:38
Views:
888
Rating: Antwort:
  Ja
Thema:
Aw:Werte aus VBA in Formel einer Excel Zelle setzt
Hallo Dan000,
was funktioniert denn nicht so, wie du es erwartest?
Dein Programm wertet die Formel aus, die mit dem Platzhalter x in A1 des aktiven Tabellenblattes steht, berechnet diese Formel für die beiden Werte a und b, indem x urch a bzw. b ersetzt wird, und bestimmt die Summe beider Ergebnisse. Falls du das wolltest, macht es dein Programm korrekt.
Gruß
Holger


Dan000 schrieb am 24.02.2009 17:33:51:

Hallo Leute, Kann mir jemand sagen warum das Programm nicht funktioniert?

Vielen dank im voraus!!

Sub Ber()
Dim a As Double, b As Double
a = 2
b = 3

MsgBox (udfSumme(a, b))

End Sub


Function udfSumme(a As Double, b As Double)
udfSumme = Rechnen([A1], a) + Rechnen([A1], b)
End Function

Function Rechnen(rngZelle As Range, dblWert As Double)
'Aufruf im Tabellenblatt : =rechnen(A1;10)
'In A1 muss der Funktionsterm stehen, z.B. "x^2" oder "x*10" oder "100-2*x" etc.
Application.Volatile
Rechnen = Evaluate(Replace(rngZelle.Value, "x", dblWert))
End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.02.2009 17:33:51 Dan000
NotSolved
Blau Aw:Werte aus VBA in Formel einer Excel Zelle setzt
24.02.2009 18:16:38 Holger
NotSolved
24.02.2009 18:25:26 Dan000
NotSolved
25.02.2009 09:18:38 Holger
NotSolved