Formel in Textform ausrechnen?
wor...@yahoo.de
ich habe folgendes Problem zu lösen:
In einer Zelle habe ich einen Text wie 1+1+7+23+9+100 stehen.
Die Anzahl der Summanden kann variieren und muss jederzeit editierbar
bleiben. Auch der Text muss in dieser Form erhalten bleiben.
Und in einer zweiten Zelle habe ich dann das Ergebnis der Addition
stehen. Es gibt keine negativen Zahlen, keine Subtraktion, nur die
Addition.
Wäre echt spitze, wenn jemand eine Lösung für dieses Problem parat
hätte !
Thx wormid
Sent via Deja.com http://www.deja.com/
Before you buy.
Bernd Held
dazu kannst Du eine benutzerdefinerte Funktion schreiben, die die Formeln als
Text ausgibt. Wechsle mit ALT + F11 in die Entwicklungsumgebung von Excel, füge
ein neues Modul ein und erfasse folgende Funktion:
Function FormelText(cell_ref)
Application.Volatile
If Application.ReferenceStyle = xlA1 Then
FormelText = cell_ref.Formula
Else
FormelText = cell_ref.FormulaR1C1
End If
End Function
Gehe zurück auf Dein Tabellenblatt und gebe in eine beliebige Zelle ein:
=FormelText(A1) dadurch wird die Formel, die in Zelle A1 drinsteht als Text in
der Zelle ausgegeben, in welche Du die Funktion eingetippt hast.
Viele Grüße
Bernd
----------------------------------------------------
Die MacHero EXCEL Homepage
http://members.aol.com/Machero
Excel-Tipps&Tricks, VBA, Publikationen und mehr...
----------------------------------------------------
--
_____________________________________________________________
NewsGroups Suchen, lesen, schreiben mit http://netnews.web.de
Peter Haserodt
in einem Modul z.B. der Personl.xls
Public Function EvalNutzen(Text as String) as Double
Application.Volatile
On error Goto Fehler
EvalNutzen = Evaluate(Text)
Exit Function
Fehler:
EvalNutzen ="Fehler!"
End Function
Wenn in Deiner Zelle A1 steht 1+1+1
dann in Zelle A2 den Funktionsassistenten aufrufen, benutzerdefiniert und
dort steht schon die Funktion oder...
in Zelle A2 Schreiben =EvalNutzen(A1)
Gruß Peter
--
www.haserodt.de
Peter Plank
Frank Arendt-Theilen hat hier mal eine Lösung ohne VBA gepostet:
- Erstelle unter Einfügen/Namen/Festlegen einen neuen Namen:
'Auswerten', Bezieht sich auf: =AUSWERTEN(INDIREKT("ZS(-1)";FALSCH))
OK
Eingabe:
A1: 4*2-5
B1: =Auswerten
Anmerkung:
Die Formel '=Auswerten' befindet sich immer in der Zelle rechts von
der Zelle mit dem Term.
Peter Plank
wor...@yahoo.de schrieb in Nachricht <90066n$hpa$1...@nnrp1.deja.com>...