Zellwert zu Formel in anderer Zelle machen -> 4x4 zu =4x4

[o0Julia0o]

hi,

kann man aus einem Zellwert eine Formel machen - ohne "=Indirekt" zu nutzen? Mal am Beispiel:

A1:

Code:

4x4

B1: Zielausgabe ist =4x4 (als Formel, so dass dort 16 steht).

Geht so etwas? Was müsste in B1 stehen? Ich habe es mit VBA probiert:

Code:

Sub TextZuFormel()
   [A2] = =[B1]
End Sub

Funktioniert jedoch nicht.

Julia :)

[Peter]

Hallo,

meinst du sowas?

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	4*4	16

Name	Bezug
Rechnen	=AUSWERTEN(INDIREKT("ZS(-1)";FALSCH))

Zelle	Formel
B1	=Rechnen

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Wenn ja, dann vergib über den Namensmanager einen Namen (in meinem Beispiel Rechnen) und weise ihm folgende Formel zu:

=AUSWERTEN(INDIREKT("ZS(-1)";FALSCH))

in B1 kannst du dann folgende Formel anwenden:
=Rechnen

Die Formel muss immer rechts neben der Formeltext-Zelle angewendet werden.

[BoskoBiati]

Hallo,

das geht auch ohne INDIREKT:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	4*4	16

Name	Bezug
Rechne	=AUSWERTEN(Tabelle1!A1)

Zelle	Formel
B1	=Rechne

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

hier auch in der Weise, dass die Formel rechts neben dem Text steht. Es geht auch mit anderen Konstellationen:

Arbeitsblatt mit dem Namen 'Tabelle1'
	D	E	F	G
4	4*4
5
6
7
8
9
10
11				16

Name	Bezug
Berechne	=AUSWERTEN(Tabelle1!D4)

Zelle	Formel
G11	=Berechne

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

(willkürlich angeordnet!)

[atilla]

Hallo,

aufgrund Deiner bisherigen Beiträge vermute ich, dass Du auf so etwas aus bist:

Code:

Range("A1").FormulaLocal = "=" & Range("A1").Value

Wenn aber Anführungszeichen enthalten sind, dann wird es komplizierter.

[o0Julia0o]

das funktioniert. Jedoch leider eingeschränkt. Ist auch recht aufwändig, da müsste ich ca. 180 Namen definieren. Ich habe für das Beispiel =4x4 als Text gewählt. Meine Formel ist etwas komplizierter. Sie greift auf eine andere Datei zu. Jedoch muß diese dann geöffnet sein, damit das über die Namensfunktion klappt.

Daher die Frage: Gibt es noch eine andere Variante wie ich aus dem Text "=4x4" eine echte Formel machen kann?

[BoskoBiati]

Hallo,

und warum stellst Du nicht gleich die richtige Formel vor????? :@

[o0Julia0o]

geht ja nur ums Prinzip. Der richtige Formeltext bezieht sich wie gesagt auf eine andere Datei. Es gibt ja auch zig Formeltexte davon:

Code:

=[Daten.xlsm]Zahlen!$AP$6

Per Eintragung im entsprechenden Feld von textzuformel=(D43) & Makro:

Code:

Option Explicit
Public Function textzuformel(ByVal text As String)
textzuformel = Evaluate(text)
End Function

geht es auch nur, wenn die Daten.xlsm geöffnet ist.

[Jockel]

Hallo,

das geht auch ohne INDIREKT
...

Hallo Edgar, stimmt, aber.. :
"Enthält der Formelstring einen Bezug und ändert sich der Wert des Bezuges,
wird bei=AUSWERTEN(Tabelle1!A1)
keine Neuberechnung durchgeführt. Dies erreicht man aber mit
=AUSWERTEN(INDIREKT("Tabelle1!A1")) ..."


gefunden auf excelformeln.de

[atilla]

Hallo,

meinen Beitrag übersiehst Du!?

[o0Julia0o]

[quote pid='68730' dateline='1487264210']
=AUSWERTEN(INDIREKT("Tabelle1!A1")) ..."
[/quote]

Jedoch müssen auch so die externen Exceldateien geöffnet sein.