Datum

Titel

19.04.2024 12:58:59

Daten einfügen aus anderem Sheet

19.04.2024 12:23:24

Wenn-Formel anpassen

19.04.2024 12:09:19

Unique (Application.WorksheetFunction.Unique)

19.04.2024 11:51:37

Nächsten identischen Treffer suchen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1232to1236

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Excel Formel als Text ausgeben

Forumthread: Excel Formel als Text ausgeben
9 Beiträge zu diesem Forumthread
Anzeige
355 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

Karen

Hallo Forum,
leider haben mir die bisherigen Beiträge im Archiv noch nicht so richtig weitergeholfen.
Ich habe eine eigentlich - wahrscheinlich - ziemlich simple Frage:
Ich habe in A1 eine Formel stehen. Diese möchte ich in B1 als Text ausgegeben sehen. Die Zelle B1 soll eine Formel dafür enthalten.
Vielen Dank für Antworten im Voraus.
Grüße
Karen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Excel Formel als Text ausgeben

Josef
AW: Excel Formel als Text ausgeben

Karen
AW: Excel Formel als Text ausgeben

Josef
Das liegt daran, dass du Fmln mit XLM-Fktt ...

Luc:-?
Zelle.Zuordnen()

Matthias
AW: Zelle.Zuordnen()

Karen
AW: Zelle.Zuordnen()

Matthias
AW: Zelle.Zuordnen()

Karen
AW: Excel Formel als Text ausgeben

Gerd

AW: Excel Formel als Text ausgeben

26.10.2011 09:36:18

Josef

Hallo Karen,
auch wenn sich mir der Sinn dieser Aktion nicht erschließt, das geht entweder per UDF oder so: http://excelformeln.de/formeln.html?welcher=127

« Gruß Sepp »

AW: Excel Formel als Text ausgeben

26.10.2011 09:42:20

Karen

Hallo Sepp,
vielen Dank für Deine Antwort. Das hatte ich auch schon gefunden, hat aber leider nicht funktioniert, weil ich die Vorgehensweise wahrscheinlich nicht verstanden habe.
Grüße
Karen

AW: Excel Formel als Text ausgeben

26.10.2011 09:51:06

Josef

Hallo Karen,
dann vielleicht per UDF die du am besten in ein AddIn einfügst.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Formula(ByRef Bezug As Range, Optional FLocal As Boolean = True) As String
Formula = IIf(FLocal, Bezug(1, 1).FormulaLocal, Bezug(1, 1).Formula)
End Function

Und in der Tabelle wie jede andere Funktion verwendest.
Tabelle2

	A	B	C
1	26.10.2011	=HEUTE()	=TODAY()
2	122526	=A1*3	=A1*3

Formeln der Tabelle

Zelle	Formel
A1	=HEUTE()
B1	=formula(A1)
C1	=formula(A1;0)
A2	=A1*3
B2	=formula(A2)
C2	=formula(A2;0)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

« Gruß Sepp »

Das liegt daran, dass du Fmln mit XLM-Fktt ...

26.10.2011 12:09:55

Luc:-?

…zwingend Namen geben also die Fml im Bezug des Namens notieren musst, Karen,
während Sepps Angebot auch als normale Zellfml fktioniert.
Nebenbei, im Archiv sind solche UDF durchaus schon enthalten, du wirst sie wohl nur nicht finden.
Gruß Luc :-?

Zelle.Zuordnen()

26.10.2011 09:36:36

Matthias

Hallo
Schau Dir beim Namen die Beziehung an!
https://www.herber.de/bbs/user/77198.xls
Gruß Matthias

AW: Zelle.Zuordnen()

26.10.2011 09:41:17

Karen

Hallo Matthias,
vielen Dank für Deine Antwort, aber leider verstehe ich trotzdem nicht, was ich wo genau machen muß. Wenn sich mir das richtig erschließt, dann muß ich den Namen Formel vordefinieren?
Viele Grüße
Karen

AW: Zelle.Zuordnen()

26.10.2011 09:54:34

Matthias

Hallo
Eigentlich schon ...
Userbild

Gruß Matthias

AW: Zelle.Zuordnen()

27.10.2011 07:47:12

Karen

Hallo Matthias,
vielen Dank, nun klappt es :-).
Grüße
Karen

AW: Excel Formel als Text ausgeben

26.10.2011 09:55:22

Gerd

Hallo Karen,
kopiere die Function in ein allgemeines Modul, z.B. Modul1.
In B1 kannst Du dann schreiben: = formeltext(A1)


Public Function formeltext(ByVal Zelle As Range)
If Not Zelle Is Nothing Then
If Not IsArray(Zelle) Then
If Zelle.HasFormula Then
formeltext = Mid$(Zelle.Formula, 2)
End If
End If
End If
End Function


Gruß Gerd