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

Ansicht des Beitrags:
Von:
Holger		 Datum:
25.02.2009 09:18:38		 Views:
937		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Werte aus VBA in Formel einer Excel Zelle
Hallo Dan000,
versuche
Rechnen = Evaluate(Replace(rngZelle.Value, "x", cstr(dblWert)))
Excel 2007 interpretiert den nummerischen dblWert automatisch als String, wenn eine Funktion wie Replace einen String erwartet. Falls du eine ältere Version verwendest, könnte dort der Fehler liegen.
Gruß
Holger

Dan000 schrieb am 24.02.2009 18:25:26:

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