Formel in einer Zelle, Ergebnis in einer anderen Zelle?
Hajo
versuche es mal mit folgendem Vorschlag der mal im
Internet Stand
358. Formel anzeigen lassen und Ergebnis
selektiere B1,
wähle Einfügen>Namen>Festlegen "Formel"
bezieht sich auf: =ZELLE.ZUORDNEN(6;Tabelle1!A1)
von JensF
oder
1. Eine Zelle auswählen (z.B. "D1")
2. Strg + F3 drücken
3. Als Namen "Test" eingeben
4. Unter "Bezieht sich auf: =AUSWERTEN(INDIREKT("D1"))
eingeben
5. auf "OK" klicken
6. Eine zweite Zelle auswählen (z.B. "E1")
7. In diese eingeben: "=Test"
8. Nun in die erste Zelle ("D1") eingeben: "30+5"
9. Fertig! Die Aufgabe wird in "D1" angezeigt und das
Ergebnis findet man bei "E1"
von ng
Gruß Hajo
>-----Originalnachricht-----
>Hallo,
>vielleicht kann mir ja jemand helfen.
>ich möchte in Excel 2000 (oder 97 egal) eine Formel
>eingeben und das Ergebnis soll in eine anderen Zelle
>erscheinen.Aber die Formel soll in der ersten Zelle zu
>sehen sein. z.B
>
> Zelle 1 Zelle2
> ---------- ----------
> (2*3)+(4*5) 26
>
>Das ergebnis in Zelle 2 soll natürlich automatisch
>berechnet werden. Bei Lotus 123 geht das aber ich würde
>ieber mit Excel arbeiten.
>Hoffentlich kann mir jemand helfen.
>
>:-) Davina
>.
>
Davina
Davina
ich habs mal mit dem 2. Vorschlag probiert. Es klappt
zwar, nur es bezieht sich immer nur auf eine Zelle.
Wie kann ich das denn machen so das ich es für beliebige
Zellen machen kann? Da ich das eigentlich sehr oft brauche
um Kalkulationen zu machen (Flächenberechnungen bei
Aufmaßen).
Vielleicht hast du ja noch einen kleinen tip im petto
;-)
Hajo
ich gehe mal davon aus das Du dich mit VBA auskennst.
Definiere in einem Modul folgende Funktion
Function TextAlsWert(Zelle)
TextAlsWert = Application.Evaluate(Zelle.Formula)
End Function
(von wemm die ist habe ich leider nicht mehr)
nwendung wie folgt
z.B. in A1 die Formel z.b (1+4)*3 ohne Gleichheitszeichen
und in B1 =TextAlsWert(A1)
Gruß Hajo
>-----Originalnachricht-----
>.
>
Hajo
eigentlich hatte ich schon geantwortet aber die Antwort
ist noch nicht erschienen darum ein neuer Versuch.
Ich gehe mal davon aus das Du Dich mit VBA auskennst. In
ein Modul
Function TextAlsWert(Zelle)
TextAlsWert = Application.Evaluate(Zelle.Formula)
End Function
(leider habe ich bei dieser Formel nicht zu stehen von wem
sie ist)
schreie in A1 deine Formel ohne Gleichheitszeichen (2+3/9)
und in B1 =TextAlsWert(A1)
Gruß Hajo
>-----Originalnachricht-----
>.
>
Davina
du hast recht hab wirklich keine Ahnung von VBA...
Wenn du mir jetzt noch sagen könntest wie ich
dieses "Modul" speichern kann so das es in jeder Tabelle
funktioniert wäre ich dir für ewig dankbar...
;-)
Hajo
da muß ich mal ausholen. Um makros in allen Dateien
verfügbar zu machen muß das Makro in der Datei Personl.xls
im ordner Xlstart gespeichert werden. Diese Datei wird
beim Start von Excel automatisch geöffnet im
ausgeblendeten Zustand.
Ich Vermute mal Du hast noch keine personlichen Makros
angelegt???
Gehe auf Extra, Makro, Makro Aufzeichnen, Speichern in
Persönliche Arbeitsmappe und Ok, wähle eine Zelle und
klicke auf beenden (es ist ja ein neues Piktogramm
entstanden beim Start des Aufzeichnen und dort gibt es
Beenden)
Suche im Explorer die Datei Personl.xls mit rechte
Maustaste wählen öffnen. excel wird gestartet. Alt+F11
(VBA Editor) Bild sollte zweigeteilt sein sonst Strg+R,
mache im linken fenster ein Doppelklick auf Personl.xls
darunter sollte jetzt ein Eintrag Modul erscheinen,
Doppelklick darauf. Im Rechten Fenster siehst Du jetzt das
Makro was Du gerade aufgezeichnet hast dies kannst Du
löschen und Kopiere die Funktion ins rechte Fenster ,
Schlie0e Excel und sage Änderungen in Personl.xls
speichern. Jetzt müßte die Funktion für alle Dateien
Verfügbar sein.
Gruß Hajo
>-----Originalnachricht-----
>.
>
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
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de
AS
hier siehst Du Deine Antwort schneller:
http://www.win98tips.de/links.htm
und dann wähle: microsoft public.de.excel
Einen schönen Sonntag!
Gruß Arnim
Hajo
Danke für den Hinweis, ich werde es mal testen
Gruß Hajo
>-----Originalnachricht-----
>.
>