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

Ansicht des Beitrags:
Von:
Dan000		 Datum:
24.02.2009 18:25:26		 Views:
873		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Werte aus VBA in Formel einer Excel Zelle se
Hallo Holger, genau das soll das Programm auch machen nur ich bekomme immer die Fehlermeldung "Laufzeitfehler'13':" und darunter steht "Typen unverträglich" woran könnte das liegen?
Ich sitz schon seit Stunden daran und komme einfach nciht weiter.

nach Rechnen = Evaluate(Replace(rngZelle.Value, "x", dblWert))
Kommt die o.g. fehlermeldung

Gruß Daniel

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
24.02.2009 18:16:38 Holger
NotSolved
Rot Aw:Aw:Werte aus VBA in Formel einer Excel Zelle se
 24.02.2009 18:25:26 Dan000
NotSolved
25.02.2009 09:18:38 Holger
NotSolved