Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.02.2009 17:33:51 |
Dan000 |
|
|
|
24.02.2009 18:16:38 |
Holger |
|
|
Aw:Aw:Werte aus VBA in Formel einer Excel Zelle se |
24.02.2009 18:25:26 |
Dan000 |
|
|
|
25.02.2009 09:18:38 |
Holger |
|
|
Von:
Dan000 |
Datum:
24.02.2009 18:25:26 |
Views:
885 |
Rating:
|
Antwort:
|
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
24.02.2009 18:16:38 |
Holger |
|
|
Aw:Aw:Werte aus VBA in Formel einer Excel Zelle se |
24.02.2009 18:25:26 |
Dan000 |
|
|
|
25.02.2009 09:18:38 |
Holger |
|
|