Sichtbare Formel in anderer Zelle berechnen
Josef Widl
folgendes Problem:
in Zelle A1 steht: 2+3+4
(also ohne '=' und daher als Text)
in Zelle B1 soll nun das Ergebnis stehen
(wenn man A1 verändert soll sich natürlich auch B1 verändern)
Wie geht das
Happy Weekend
Josef Widl
Hans Werner Hofmann
<josef...@sparkasse-dorfen.de> wrote:
>Hi zusammen,
>
>folgendes Problem:
>
>in Zelle A1 steht: 2+3+4
>(also ohne '=' und daher als Text)
>
>in Zelle B1 soll nun das Ergebnis stehen
>(wenn man A1 verändert soll sich natürlich auch B1 verändern)
>
>Wie geht das
Anders rum:
Formel richtig eintippen und mit
Function ZeigeFormel(Zelle As Range)
ZeigeFormel = Zelle.FormulaLocal
End Function
anzeigen lassen.
Gruß HW
--
Hans Werner Hofmann
Frank Arendt-Theilen
vergib den folgenden Namen EINFÜGEN/Namen/Festlegen und
weise ihm die angegebene Formel zu:
Name: 'Auswerten',
Bezieht sich auf: =AUSWERTEN(INDIREKT("ZS(-1)";FALSCH))
A1: 2*3*(7,5+6)
B1: =Auswerten , ergibt --> 81
Der Name gilt mappenweit! Das Ergebnis erscheint immer rechts vom
Formeltext.
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Fri, 16 Feb 2001 12:44:57 +0100, schrieb "Josef Widl"
<josef...@sparkasse-dorfen.de> in microsoft.public.de.excel zu
"Sichtbare Formel in anderer Zelle berechnen":
Hans Werner Hofmann
<Thei...@t-online.de> wrote:
>Hallo Josef,
>vergib den folgenden Namen EINFÜGEN/Namen/Festlegen und
>weise ihm die angegebene Formel zu:
>Name: 'Auswerten',
>Bezieht sich auf: =AUSWERTEN(INDIREKT("ZS(-1)";FALSCH))
>
Lieber Frank,
- Der Trick alte Marko4.0-Funktionen über Namen aufzurufen ist gut
- Besser ist die ganze Wahrheit ;-)
Einfügen MS Excel 4.0 Makrovorlage
ab A1
EVAL
=ARGUMENT("ZELLE";2)
=RÜCKSPRUNG(AUSWERTEN(ZELLE))
Einfügen Namen Definieren
EVAL
=Makro1!A1
(x)Makro Funktion
Format Blatt Ausblenden
Ich hab dann wenigstens eine ordentlich aufrufbare Funktion. Hier halt
EVAL genannt.
Doch nun die Kernfrage an den MVP!
Wie kann ich Funktion-AUSWERTEN direkt über VBA aufrufen?
Oder wie kann ich das alte 4.0 Makro (EVAL) über VBA aufrufen?
PS: Wie lange die 4.0-Makros noch mitgeschleppt werden bleibt
natürlich ein Geheimnis von Bill?
Frank Arendt-Theilen
es geht hier nicht um 'ganze Wahrheiten', sondern um Funktionalitäten,
in diesem Fall die sehr brauchbare Lösung für die gestellte
Problemstellung.
Solange diese Funktionalität vorhanden ist benutze ich sie. Abgesehen
davon können einige Lösungen ausschließlich nur oder doch in
wesentlich vereinfachter Form über die alten XL4-Makroaufrufe
durchgeführt werden, z. B.: Wie viele Seiten werden für den Ausdruck
benötigt?
Die Funktion Auswerten ist unter VBA mit dem Schlüsselwort Evaluate
benutzbar, also
Function TextAlsWert(Zelle)
TextAlsWert = Application.Evaluate(Zelle.Formula)
End Function
Ein XL4-Makro kann mit dxer Run-Methode ausgeführt werden.
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Sat, 17 Feb 2001 13:57:59 +0100, schrieb Hans Werner Hofmann
<h...@lemitec.de> in microsoft.public.de.excel zu "Re: Sichtbare Formel
in anderer Zelle berechnen":
>On Fri, 16 Feb 2001 20:35:28 +0100, Frank Arendt-Theilen